home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / comm / flist105.lha / FList / Rexx / FList.Trans
Text File  |  1995-08-28  |  73KB  |  2,943 lines
  1. /* Deoptimized with RexxOpt 1.7 */
  2. Options Results
  3. Signal On Syntax
  4. cls
  5. flistversion="1.05p2"
  6. ver$="v"flistversion
  7. shareware="YES :-)"
  8. RED=""
  9. GRN=""
  10. YEL=""
  11. BLU=""
  12. PNK=""
  13. CYN=""
  14. WHT=""
  15. BLD=""
  16. ITL=""
  17. UND=""
  18. CLR=""
  19. FSH=""
  20. BRED=""
  21. BGRN=""
  22. BYEL=""
  23. BBLU=""
  24. BPNK=""
  25. BCYN=""
  26. BWHT=""
  27. optsline="A C D E F G I L M O P Q R S T V W X Y 2 4 6 8 ! * - = ?"
  28. Userinfo 'x'
  29. ansi=upper(result)
  30. if ansi="OFF" then
  31. do
  32. print "ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿"
  33. print "Û  Û  Û Û   Û"
  34. print "ÛÄ Û  Û ßßÛ Û "ver$
  35. send "Û  ÛÜÜÛÜÜÜÛ Û S.Gillibrand 1995"
  36. newline
  37. newline
  38. queryy "You Have ANSI Graphics Off - Use The Non-Ansi Lister?"
  39. if upper(Result)="Y" then
  40. do
  41. listfiles
  42. RED=""
  43. GRN=""
  44. YEL=""
  45. BLU=""
  46. PNK=""
  47. CYN=""
  48. WHT=""
  49. BLD=""
  50. ITL=""
  51. UND=""
  52. CLR=""
  53. FSH=""
  54. BRED=""
  55. BGRN=""
  56. BYEL=""
  57. BBLU=""
  58. BPNK=""
  59. BCYN=""
  60. BWHT=""
  61. call credits
  62. exit
  63. end
  64. cls
  65. end
  66. print BLD""CYN"ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿"
  67. print CLR""CYN"Û  Û  Û Û   Û"
  68. print BLD""BLU"ÛÄ Û  Û ßßÛ Û "GRN""ver$
  69. send CLR""BLU"Û  ÛÜÜÛÜÜÜÛ Û "BLD""YEL"S.Gillibrand 1995"RED"                         "
  70. send "Loading Please Wait... "
  71. sysoptaxx=199
  72. pltpath="BBS:Extras/FlistPalette/"
  73. sdlpath="BBS:Extras/FlistSaveDL/"
  74. pswpath="BBS:Extras/FlistPasswords/"
  75. taversion="1.1"
  76. defwait=1
  77. maxmark=10
  78. if exists('BBS:Configs/File.Cfg') then
  79. do
  80. call open(in,'BBS:Configs/File.Cfg','R')
  81. dummy=readln(in)
  82. maxmark=compress(readln(in))
  83. Call Close(in)
  84. end
  85. if ~exists('BBS:Configs/FList.Cfg') then
  86. do
  87. newline
  88. print "Configuration File Not Found!"
  89. print "Please Inform Your SysOp Of This!"
  90. newline
  91. continue
  92. exit
  93. end
  94. Call Open(In,'BBS:Configs/FList.Cfg','R')
  95. accept=0
  96. shintor=0
  97. do until eof(in)
  98. data=upper(readln(in))
  99. if data="@RESTRICTACCESSFLAGS" then
  100. do
  101. data1=readln(in)
  102. data2=readln(in)
  103. data3=readln(in)
  104. RESTRICTACAGS.data1.data2=data3
  105. end
  106. if data="@RESTRICTFLAGS" then
  107. do
  108. data2=readln(in)
  109. data3=readln(in)
  110. RESTRICTFLAGS.data2=data3
  111. end
  112. if data="@RESTRICTACCESS" then
  113. do
  114. data2=readln(in)
  115. data3=readln(in)
  116. RESTRICTACCESS.data2=data3
  117. end
  118. if data="@ARCVIEW" then
  119. do
  120. shintor=shintor+1
  121. data2=readln(in)
  122. arcerext.shintor=data2
  123. data3=readln(in)
  124. arcer.shintor=data3
  125. end
  126. if data="@SYSOPFUNCT" then sysoptaxx=readln(in)
  127. if data="@PALETTEPATH" then pltpath=readln(in)
  128. if data="@SAVEDLPATH" then sdlpath=readln(in)
  129. if data="@PASSWORDPATH" then pswpath=readln(in)
  130. if data="@TAVERSION" then taversion=readln(in)
  131. if data="@DEFWAIT" then defwait=readln(in)
  132. if data="@TEMPATH" then tempath=readln(in)
  133. if data="@FPMPATH" then fpmpath=readln(in)
  134. end
  135. nofarcsupp=shintor
  136. Call Close(in)
  137. if ~exists(tempath) then address command "Makedir "tempath" >NIL:"
  138. if ~exists(fpmpath) then address command "Makedir "fpmpath" >NIL:"
  139. extcdstr=''
  140. bebob=1
  141. scrln=1
  142. pageno=1
  143. pages=1
  144. bbsidentify name
  145. bbsname=result
  146. userinfo 'v'
  147. screenln=result
  148. scrln=screenln-8
  149. if scrln<2 then scrln=2
  150. systeminfo 'r'
  151. bpsrate=result
  152. Userinfo 'a'
  153. username=result
  154. Userinfo 'x'
  155. ansi=result
  156. userinfo 'g'
  157. userflags=result
  158. do i=1 to 8
  159. if substr(userflags,i,1,)="-" then userflags=overlay('O',userflags,i,1,)
  160. end
  161. Userinfo 'o'
  162. useraccess=result
  163. extcmd=""
  164. charstack
  165. if result=1 then
  166. do
  167. getchar
  168. extcmd=upper(Result)
  169. end
  170. if ~exists(pltpath) then
  171. do
  172. newline
  173. print RED""pltpath" Doesn't Exist! - Inform The SysOp"
  174. newline
  175. continue
  176. exit
  177. end
  178. if exists(pltpath''username'.PLT') then
  179. do
  180. Call Open(Out,pltpath''username'.PLT','R')
  181. red=readln(out)
  182. grn=readln(out)
  183. yel=readln(out)
  184. blu=readln(out)
  185. pnk=readln(out)
  186. cyn=readln(out)
  187. wht=readln(out)
  188. Call Close(out)
  189. end
  190. newline
  191. if ~exists(pswpath) then
  192. do
  193. newline
  194. print RED""pswpath" Doesn't Exist! - Inform The SysOp"
  195. newline
  196. continue
  197. exit
  198. end
  199. if exists(pswpath''username'.PSW') then
  200. do
  201. tries=0
  202. Print CYN"Your Access Has Been Password Protected!"
  203. do forever
  204. If ~carrier then exit
  205. Prompt 30 'HIDE "'RED'Enter Password: 'YEL'"'
  206. epsw=upper(Result)
  207. if ~exists(pswpath) then
  208. do
  209. newline
  210. print RED""pswpath" Doesn't Exist! - Inform The SysOp"
  211. newline
  212. continue
  213. exit
  214. end
  215. Address Command 'LIST "'pswpath''username'.PSW" NOHEAD >'tempath'FLISTPSW'
  216. Call Open(Pswin,tempath'FLISTPSW','R')
  217. dummy=readln(pswin)
  218. pw=readln(pswin)
  219. Call Close(pswin)
  220. psw=right(pw,length(pw)-2)
  221. if epsw~=upper(psw) then
  222. do
  223. Print RED"Access Denied"
  224. tries=tries+1
  225. if tries=3 then exit
  226. end
  227. if epsw=upper(psw) then leave
  228. end
  229. end
  230. if extcmd~="" then
  231. do
  232. if extcmd="R" then Print "Sorting Files In Reverse Order"
  233. if extcmd="C" then
  234. do
  235. call palprefs
  236. cls
  237. end
  238. if extcmd="P" then call passwrd
  239. if extcmd="+" then call remark
  240. if extcmd="!" then
  241. do
  242. SEND CLR
  243. CLS
  244. newline
  245. print CYN"FList is a 100% Arexx File Lister For TransAmiga BBS's"
  246. print BLD"Containing 2279 Lines Totalling 77035 Bytes Of Code"
  247. newline
  248. print RED"Current Version Being Used Here Is   : "YEL""ver$
  249. newline
  250. print PNK"Bug Reports And Ideas Should Be Directed To 2:250/602@Fidonet"
  251. print PNK"Or By Calling My BBS; Digital Dreams BBS UK - +44 (0)1772 454995"
  252. newline
  253. print GRN"Thank Your SysOp For Using The Best File Lister Available On >ANY< BBS *:-)"
  254. newline
  255. continue
  256. exit
  257. end
  258. if extcmd="?" then
  259. do
  260. newline
  261. print YEL"FList "ver$" - By Stuart Gillibrand 1994/5"
  262. print CYN"Stacked Commands Help"
  263. newline
  264. print RED"Key Description"
  265. print BLD" C  Colour Preferences"
  266. print BLD" R  Reverse The File Listing"
  267. print BLD" ?  This Help Section"
  268. print BLD" +  Re-Mark Saved Files"
  269. print BLD" !  FList Information"
  270. print BLD" P  Password Your FList Access"
  271. newline
  272. print CLR""CYN"More Features Will Appear In Later Versions"
  273. newline
  274. continue
  275. exit
  276. end
  277. address command "WAIT "defwait-1" >>"tempath"FLIST_CLI_REPORTS"
  278. end
  279. userinfo 'o'
  280. newline
  281. checkoffline=0
  282. fog=upper(substr(date(),4,3,))
  283. if fog="JAN" then dekode=01
  284. if fog="FEB" then dekode=02
  285. if fog="MAR" then dekode=03
  286. if fog="APR" then dekode=04
  287. if fog="MAY" then dekode=05
  288. if fog="JUN" then dekode=06
  289. if fog="JUL" then dekode=07
  290. if fog="AUG" then dekode=08
  291. if fog="SEP" then dekode=09
  292. if fog="OCT" then dekode=10
  293. if fog="NOV" then dekode=11
  294. if fog="DEC" then dekode=12
  295. toddy=right(date(),2)''dekode''left(date(),2)
  296. mkf=0
  297. markstring=""
  298. showopts=1
  299. cdsonline=0
  300. if exists('BBS:Configs/Flist.CDROM') then
  301. do
  302. cdsonline=0
  303. Call open(cdin,'BBS:Configs/Flist.CDROM','R')
  304. do i=1 to 12
  305. dummy=readln(cdin)
  306. end
  307. do until eof(cdin)
  308. If ~carrier then exit
  309. cdsonline=cdsonline+1
  310. cdname.cdsonline=readln(cdin)
  311. cdpath.cdsonline=readln(cdin)
  312. cdarea.cdsonline=readln(cdin)
  313. end
  314. Call Close(cdin)
  315. cdsonline=cdsonline-1
  316. end
  317. systeminfo 'z'
  318. areaname=result
  319. systeminfo '7'
  320. path=upper(result)
  321. systeminfo '7'
  322. areapath=result
  323. oldarea=1
  324. lstmarkedfiles tempath"Cool.FList"
  325. If exists(tempath"Marked")&exists(tempath"Cool.FList") then
  326. do
  327. newline
  328. print yel"Highlighting Previously Marked Files..."
  329. Call Open(Bagman,tempath"Cool.FList")
  330. Call Open(Relive,tempath'Marked','R')
  331. chowmein=0
  332. do until eof(bagman)
  333. fn=readln(bagman)
  334. if compress(fn)~="" then mkf=mkf+1
  335. call seek(relive,0,'B')
  336. do until eof(relive)
  337. data=readln(relive)
  338. if upper(word(data,1))=upper(fn) then
  339. do
  340. chowmein=chowmein+1
  341. gr=word(data,2)
  342. nm=word(data,3)
  343. mark.nm.gr="Y"
  344. markstring=markstring""word(data,1)" "
  345. end
  346. end
  347. end
  348. end
  349. Call Close(Relive)
  350. Call Close(Bagman)
  351. farea=1
  352. if pos('/'path'/',restrictACCESS.useraccess)>0|pos('/'path'/',restrictFLAGS.userflags)>0|pos('/'path'/',restrictACAGS.userflags.useraccess)>0 then
  353. do
  354. call maffair
  355. signal areachange
  356. end
  357. systeminfo '2'
  358. farea=result
  359. signal fresh
  360. areachange:
  361. pageno=1
  362. send ""scrln+7";0H"
  363. if cdsonline>0 then Prompt 4 'NORMAL "'CLR''CYN'File Area 'YEL'['RED''BLD''FSH'! For CD List'CLR''CYN', X/Q To Quit, ? For List, > Next, < Previous'YEL']'CYN': 'PNK'"'
  364. else Prompt 4 'NORMAL "'CLR''CYN'File Area 'YEL'['CYN'X/Q To Quit, ? For List, > Next, < Previous'YEL']'CYN': 'PNK'"'
  365. farea=upper(result)
  366. if upper(farea)~="?" then signal alreadydun
  367. send clr
  368. cls
  369. if exists("BBS:Rexx/FList_Area.Trans") then
  370. do
  371. call 'BBS:Rexx/FList_Area.Trans'
  372. systeminfo '2'
  373. farea=result
  374. signal alreadydun
  375. end
  376. if ~exists("BBS:TEXT/FileLibs.ANSI")&~exists("BBS:TEXT/FileLibs") then LISTFILEAREAS
  377. else sendfile "BBS:Text/FileLibs"
  378. newline
  379. if cdsonline>0 then Prompt 4 'NORMAL "'CLR''CYN'File Area 'YEL'['RED''BLD''FSH'! For CD List'CLR''CYN', X/Q To Quit, ? For List, > Next, < Previous'YEL']'CYN': 'PNK'"'
  380. else Prompt 4 'NORMAL "'CLR''CYN'File Area 'YEL'['CYN'X/Q To Quit, ? For List, > Next, < Previous'YEL']'CYN': 'PNK'"'
  381. farea=upper(result)
  382. if farea="?" then signal areachange
  383. alreadydun:
  384. systeminfo '2'
  385. fanumb=result
  386. if farea=">" then farea=fanumb+1
  387. if farea="<"&fanumb>1 then farea=fanumb-1
  388. if farea="X"|farea="Q" then
  389. do
  390. call credits
  391. signal markemate
  392. end
  393. if farea="!" then
  394. do
  395. send clr
  396. cls
  397. print BBLU"                                                                              "
  398. send "A"
  399. Print BBLU""YEL"TAFlist "GRN"["CYN"TransAmiga FileList "GRN"]"YEL" "ver$" "CYN"/"YEL""BLD" S.Gillibrand 1994              "GRN"CD Status"CLR
  400. newline
  401. address command "Assign VOLS >"tempath"FLIST_CD_STATUS_CHECK"
  402. Call open(checkonline,tempath"FLIST_CD_STATUS_CHECK",'R')
  403. dummy=readln(Checkonline)
  404. shane=1
  405. do until eof(checkonline)
  406. If ~carrier then exit
  407. volume.shane=readln(checkonline)
  408. shane=shane+1
  409. end
  410. shane=shane-1
  411. Call Close(checkonline)
  412. if cdsonline>0 then
  413. do
  414. do niko=1 to cdsonline
  415. cdstat.niko="OnLine"
  416. print yel''niko' 'cyn''cdname.niko
  417. do zion=1 to shane
  418. if pos(left(upper(cdpath.niko),length(cdpath.niko)-1),upper(volume.zion))>0 then leave
  419. if pos(left(upper(cdpath.niko),length(cdpath.niko)-1),upper(volume.zion))=0 then cdstat.niko="OffLine"
  420. end
  421. print 'AC'RED''BLD''cdstat.niko''CLR
  422. end
  423. end
  424. if cdsonline=0 then print "                Sorry No Cd's Are Configured At The Moment :-("
  425. newline
  426. print BBLU"                                                                              "CLR
  427. do until datatype(cdselect)="NUM"&cdselect>0&cdselect<(cdsonline+1)&upper(cdstat.cdselect)="ONLINE"
  428. If ~carrier then exit
  429. prompt 3 'NORMAL "A'BBLU''YEL'['WHT''BLD'Select CD Rom, X To Quit'CLR''BBLU''YEL']'GRN': 'CYN'   D"'
  430. cdselect=upper(result)
  431. newline
  432. if cdselect="X" then signal areachange
  433. end
  434. call open(cdareain,cdarea.cdselect,'R')
  435. do i=1 to 12
  436. dummybummysaidmummy=readln(cdareain)
  437. end
  438. cdareas=readln(cdareain)
  439. do beebop=1 to cdareas
  440. cdareaname.beebop=readln(cdareain)
  441. cdareatext.beebop=readln(cdareain)
  442. end
  443. Call Close(cdareain)
  444. send clr
  445. cls
  446. print BBLU"                                                                              "
  447. send "A"
  448. Print BBLU""YEL"TAFlist "GRN"["CYN"TransAmiga FileList "GRN"]"YEL" "ver$" "CYN"/"YEL""BLD" S.Gillibrand 1994"CLR
  449. newline
  450. goaway=0
  451. do niko=1 to cdareas
  452. print yel''niko' 'cyn''cdareaname.niko
  453. if pos('.',niko/scrln)=0&goaway=0 then
  454. do
  455. Call morepro()
  456. repo=upper(Result)
  457. if upper(Repo)="N" then
  458. do
  459. send "A"
  460. leave
  461. end
  462. if upper(repo)="C" then goaway=1
  463. end
  464. end
  465. newline
  466. print BBLU"                                                                              "CLR
  467. do until datatype(cdareaselect)="NUM"&cdareaselect>0&cdareaselect<(cdareas+1)
  468. If ~carrier then exit
  469. prompt 3 'NORMAL "A'BBLU''YEL'['WHT''BLD'Select CD Area, X To Quit'CLR''BBLU''YEL']'GRN': 'CYN'   D"'
  470. cdareaselect=upper(result)
  471. if cdareaselect="X" then signal areachange
  472. end
  473. path=cdareatext.cdareaselect
  474. areapath='FILE:CD/'left(cdpath.cdselect,length(cdpath.cdselect)-1)'/'
  475. areaname=cdname.cdselect' - 'cdareaname.cdareaselect
  476. end
  477. if farea~="!" then
  478. do
  479. oldarea=farea
  480. FILEAREA farea
  481. if result~=1 then signal areachange
  482. systeminfo '7'
  483. areapath=result
  484. systeminfo 'z'
  485. areaname=result
  486. systeminfo '7'
  487. path=upper(result)
  488. end
  489. if farea="!" then oldarea=2
  490. if pos('/'path'/',restrictACCESS.useraccess)>0|pos('/'path'/',restrictFLAGS.userflags)>0|pos('/'path'/',restrictACAGS.userflags.useraccess)>0 then
  491. do
  492. call maffair
  493. signal areachange
  494. end
  495. fresh:
  496. fscroller:
  497. if farea~="!" then goarea=areapath'files.bbs'
  498. if farea="!" then goarea=cdareatext.cdareaselect
  499. if pos('/'areapath'/',restrictACCESS.useraccess)>0|pos('/'areapath'/',restrictFLAGS.userflags)>0|pos('/'areapath'/',restrictACAGS.userflags.useraccess)>0 then
  500. do
  501. call maffair
  502. signal areachange
  503. end
  504. start=1
  505. if ~exists(goarea) then
  506. do
  507. cls
  508. newline
  509. print RED""BLD"Sorry, There Are No Files In This Area :-("
  510. newline
  511. signal areachange
  512. end
  513. send clr
  514. cls
  515. call redraw
  516. bebob=0
  517. call reloadfiles
  518. if extcmd="R" then
  519. do
  520. extcmd=""
  521. call sortreverse
  522. end
  523. call scroll
  524. do forever
  525. if ~CARRIER then exit
  526. send ""scrln+4"H"BLD""YEL"Option: "
  527. getchar
  528. fsopt=upper(result)
  529. send GRN""BLD
  530. if fsopt='0D'x then fsopt="2"
  531. if fsopt='08'x then fsopt="8"
  532. if fsopt='1B'x then fsopt="Q"
  533. If fsopt='5b'x|fsopt='9b'x then
  534. Do
  535. MayGetChar
  536. Tmp=result
  537. If Tmp='A' then fsopt='8'
  538. If Tmp='B' then fsopt='2'
  539. If Tmp='C' then fsopt='1'
  540. If Tmp='D' then fsopt='7'
  541. End
  542. if c2d(fsopt)=67 then
  543. do
  544. maygetchar
  545. shen=result
  546. secval=1
  547. if shen~="NOCHAR"&shen~="RESULT" then secval=c2d(shen)
  548. if secval=50 then
  549. do
  550. send "Viewing FList Help Page"
  551. fsopt=""
  552. sendfile "BBS:Text/FLISTMAINHELP"
  553. newline
  554. continue
  555. call redraw
  556. call scroll
  557. end
  558. end
  559. if (fsopt="2"|fsopt="3")&pageno<pages then
  560. do
  561. send "Page Down"
  562. pageno=pageno+1
  563. start=start+scrln
  564. call scroll
  565. end
  566. if fsopt="8"|fsopt="9" then if START>1 then
  567. do
  568. send "Page Up"
  569. if start-scrln<1 then start=scrln+1
  570. pageno=pageno-1
  571. start=start-scrln
  572. call scroll
  573. end
  574. if fsopt="4"|fsopt="7" then
  575. do
  576. send "Home"
  577. start=1
  578. pageno=1
  579. call scroll
  580. end
  581. if (fsopt="6"|fsopt="1")&pages>1 then
  582. do
  583. send "End"
  584. start=bebob-(scrln-1)
  585. pageno=pages
  586. call scroll
  587. end
  588. if (fsopt="I"&bebob>2)&start<bebob then
  589. do
  590. send "Editing File Description"
  591. call editdesc
  592. end
  593. if fsopt="L" then
  594. do
  595. send "Editing User Palette"
  596. call palprefs
  597. call redraw
  598. call scroll
  599. end
  600. if fsopt="P" then
  601. do
  602. send "Activating Password Options"
  603. cls
  604. send clr
  605. call passwrd
  606. end
  607. if fsopt="?" then
  608. do
  609. send "Viewing FList Help Page"
  610. sendfile "BBS:Text/FLISTMAINHELP"
  611. newline
  612. continue
  613. call redraw
  614. call scroll
  615. end
  616. if fsopt="!" then
  617. do
  618. send "Remarking Saved File(s)"
  619. send clr
  620. cls
  621. newline
  622. call remark
  623. end
  624. if fsopt="F" then
  625. do
  626. send "Selecting Different Menu"
  627. do until repoman='0D'x
  628. send WHT""scrln+7";0H              Use 1 To 3 To Select Menu, RETURN To Place"CLR
  629. getchar
  630. repoman=result
  631. if repoman="1" then showopts=1
  632. if repoman="2" then showopts=2
  633. if repoman="3" then showopts=3
  634. if repoman="4" then
  635. do
  636. showopts=4
  637. repoman='0D'x
  638. end
  639. if showopts=1 then
  640. do
  641. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"1): "CLR
  642. newline
  643. Print ""WHT"["YEL"Q"WHT"]"PNK"uit To Menu "WHT"["YEL"A"WHT"]"PNK"rea Change "WHT"["YEL"M"WHT"]"PNK"ark File/s "WHT"["YEL"2"WHT"]"PNK" Down "WHT"["YEL"8"WHT"]"PNK" Up "WHT"["YEL"4"WHT"]"PNK" Top "WHT"["YEL"6"WHT"]"PNK" Bottom"
  644. Print ""PNK"A"WHT"["YEL"R"WHT"]"PNK"chive Editor "PNK"M"WHT"["YEL"O"WHT"]"PNK"re Information "WHT"["YEL"S"WHT"]"PNK"earch String "PNK"R"WHT"["YEL"E"WHT"]"PNK"ad Text File "GRN"["WHT"F"GRN"]"YEL"lip "
  645. end
  646. if showopts=2 then
  647. do
  648. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"2): "CLR
  649. newline
  650. Print ""PNK"Redra"WHT"["YEL"W"WHT"] "PNK"Ed"WHT"["YEL"I"WHT"]"PNK"t Description "WHT"["YEL"C"WHT"]"PNK"heck If Offline (Slower) "WHT"["YEL"="WHT"]"PNK"Lengthen Scroller"
  651. Print ""WHT"["YEL"-"WHT"]"PNK"Shorten Scroller "PNK"Res"WHT"["YEL"T"WHT"]"PNK"ore Scroller Length "WHT"["YEL"*"WHT"]"PNK"Sort File Listing "GRN"["WHT"F"GRN"]"YEL"lip "
  652. print ""
  653. end
  654. if showopts=3 then
  655. do
  656. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"3): "CLR
  657. newline
  658. Print ""WHT"["YEL"P"WHT"]"PNK"assword Options "PNK"Pa"WHT"["YEL"L"WHT"]"PNK"ette Options "WHT"["YEL"!"WHT"]"PNK"Remark Saved Files "GRN"["WHT"F"GRN"]"YEL"lip "
  659. Print ""WHT"["YEL"G"WHT"]"PNK"enerate File List"
  660. Print ""
  661. end
  662. end
  663. call redraw
  664. call scroll
  665. end
  666. if fsopt="A" then
  667. do
  668. send "Changing File Area"
  669. signal areachange
  670. end
  671. if fsopt="G" then
  672. do
  673. send "Generating FileList"
  674. call genlist
  675. end
  676. if fsopt="W" then
  677. do
  678. send "Redrawing Screen"
  679. call redraw
  680. call scroll
  681. end
  682. if fsopt="Q" then
  683. do
  684. send "Quitting FList..."
  685. markemate:
  686. alreadymarked=''
  687. lstmarkedfiles tempath"FLIST_MARKED.Tmp"
  688. if open(in,tempath'FLIST_MARKED.Tmp','R') then
  689. do
  690. do until eof(in)
  691. amf=readln(in)
  692. alreadymarked=alreadymarked'*'amf'*'
  693. end
  694. Call Close(in)
  695. end
  696. Call open(fides,tempath'File_Id','W')
  697. Call Writeln(fides,'oO[ FList - Stuart Gillibrand 1994/5 - Digital Design Production ]Oo')
  698. Call Writeln(fides,'')
  699. Call Writeln(fides,'oO[ File Descriptions From: 'bbsname' ]Oo')
  700. Call Writeln(fides,'')
  701. if exists(tempath"FLIST_CDMARK_SCRIPT") then
  702. do
  703. send clr
  704. cls
  705. newline
  706. print CLR""GRN"Processing Your Files..."CLR
  707. newline
  708. Call Open(kissfromarose,tempath"FLIST_CDMARK_SCRIPT",'R')
  709. ufobase=''
  710. tekra=0
  711. Do Until Eof(kissfromarose)
  712. data=readln(kissfromarose)
  713. if compress(Data)="" then leave
  714. send left(BLD""YEL"File: "GRN""data""CYN,65)
  715. tekra=tekra+1
  716. if exists(data) then
  717. do
  718. call open(in,data,'r')
  719. fung=seek(in,0,'e')
  720. call close(in)
  721. resl=dltime(fung)
  722. send "[Pass]   "
  723. ufobase=ufobase''data' '
  724. end
  725. else
  726. do
  727. resl="00 00"
  728. send "[Fail]   "
  729. end
  730. print BLU""BLD""word(resl,1)""CLR""BLU" Mins "BLD""word(resl,2)""CLR""BLU" Secs  "
  731. End
  732. Call Close(kissfromarose)
  733. newline
  734. print CLR""WHT"Press ["BLD"S"CLR"] To Start The Xfer"WHT" "BLU"Or"WHT" Press ["BLD"A"CLR"] To Abort"
  735. getchar
  736. ufobase=strip(ufobase,'T')
  737. if upper(result)="S" then protocolsend ufobase
  738. mkf=mkf-tekra
  739. end
  740. failfile=0
  741. tetots=0
  742. ttfd=0
  743. if mkf>0&compress(markstring)~="" then
  744. do
  745. if ~exists(tempath'Marked') then
  746. do
  747. Call open(assure,tempath'Marked','W')
  748. Call Close(Assure)
  749. end
  750. Call open(assure,tempath'Marked','A')
  751. cls
  752. if compress(markstring)~="" then
  753. do
  754. markstring=strip(markstring,'T')
  755. markstring=strip(markstring,'L')
  756. PSB=0
  757. Do Forever
  758. If ~carrier then exit
  759. do until pos('*'file'*',alreadymarked)=0
  760. PSB=PSB+1
  761. origfile=subword(markstring,psb,1)
  762. file=upper(subword(markstring,psb,1))
  763. if compress(file)="" then leave
  764. if pos('*'file'*',alreadymarked)>0 then mkf=mkf-1
  765. end
  766. if compress(file)="" then leave
  767. if psb=10&taversion="1.0"|taversion="1.1"|taversion="1.11" then
  768. do
  769. mkf=mkf-1
  770. newline
  771. continue
  772. send clr
  773. cls
  774. newline
  775. print RED""BLD"Anti-Bug Protection Taken!"CLR""RED
  776. newline
  777. newline
  778. Print YEL"This version of TransAmiga is v"taversion
  779. Print "Which Means It Is Has A BUG Contained In The Coding"
  780. Print "> This Bug Will Freeze TransAmiga If 10 Files Are Marked :C"
  781. newline
  782. Print "As This is the 10th File You Are Attempting To Mark"
  783. print "I Will Stop It From Being Marked..."
  784. print "Here Is The Filename So You May Mark It Again:"YEL
  785. newline
  786. print file
  787. newline
  788. continue
  789. cls
  790. leave
  791. end
  792. send CYN""left(file,24)" "
  793. filearea areaofile.psb
  794. markfile file
  795. fullpath=result
  796. if ~exists(fullpath)&upper(fullpath)~="FAIL" then
  797. do
  798. send RED""BLD"File Doesn't Exist!"
  799. failfile=1
  800. newline
  801. mkf=mkf-1
  802. failfile=1
  803. end
  804. failfile=0
  805. if upper(fullpath)="FAIL" then
  806. do
  807. send RED""BLD"File Failed. (Already Marked/etc. See Help At End)"
  808. failfile=1
  809. newline
  810. newline
  811. end
  812. if upper(fullpath)~="FAIL" then
  813. do
  814. send GRN""BLD"File Marked."
  815. if useraccess>sysoptaxx then send "  "wht""bld""fullpath
  816. end
  817. if upper(Fullpath)~="FAIL"&failfile=0 then
  818. do
  819. call open(Incol,fullpath,'R')
  820. fsize=seek(incol,0,'E')
  821. Call Close(incol)
  822. sheekan=dltime(fsize)
  823. newline
  824. send bld""yel""left(fsize" Bytes ",25)
  825. print bld""yel""word(sheekan,1)" Minutes, "word(sheekan,2)" Seconds at "bpsrate" BPS."
  826. Call Writeln(fides,left(file,22)''descofile.psb)
  827. Call writeln(assure,origfile' 'goar.psb' 'numbofile.psb)
  828. tetots=tetots+fsize
  829. newline
  830. if ~exists(fpmpath''file'.fpm') then
  831. do
  832. call open(fout,fpmpath''file'.fpm','W')
  833. Call writeln(fout,'0')
  834. Call close(fout)
  835. end
  836. Call Open(pmarkin,fpmpath''file'.fpm','R')
  837. pmak=readln(pmarkin)
  838. if datatype(pmak)~="NUM" then pmak=0
  839. pmak=pmak+1
  840. Call Close(pmarkin)
  841. Call Open(pmarkout,fpmpath''file'.fpm','W')
  842. Call writeln(pmarkout,pmak)
  843. Call Close(pmarkin)
  844. Call Close(pmarkout)
  845. end
  846. End
  847. end
  848. end
  849. newline
  850. if failfile=1 then
  851. do
  852. sendfile "BBS:Text/FList_MarkFail.ANSI"
  853. continue
  854. newline
  855. cls
  856. end
  857. if mkf>0 then
  858. do
  859. mend=dltime(tetots)
  860. print clr"Total Bytes: "tetots
  861. print clr"Total Marks: "mkf
  862. print clr"Total Time : "word(mend,1)" Minutes, "word(mend,2)" Seconds."
  863. parsec=word(mend,1)
  864. if word(mend,2)>0 then parsec=parsec+1
  865. Call Writeln(fides,'')
  866. Call Writeln(fides,'-+- Digital Dreams Amiga BBS UK - +44 (0)1772 454995 - 2:250/602@Fidonet -+-')
  867. Call Writeln(fides,'')
  868. Call Close(fides)
  869. Call Close(assure)
  870. newline
  871. newline
  872. systeminfo 'm'
  873. tonlin=result
  874. if tonlin<parsec then
  875. do
  876. newline
  877. print RED"Time Left Online Today : "YEL""tonlin" Minutes"
  878. print RED"Time Needed For Xfer(s): "YEL""parsec" Minutes"
  879. newline
  880. print CYN""BLD"Sorry You Don't Have Enough Online Time Left To Download!"
  881. print YEL""BLD"Please De-Mark A/Some File(s)..."
  882. newline
  883. continue
  884. do clare=1 to words(markstring)
  885. unmarkfile subword(markstring,clare,1)
  886. end
  887. pageno=1
  888. signal fscroller
  889. end
  890. send BLD""WHT"Saving Marked Files (Press ! (In FList) To ReMark Files)... "
  891. if ~exists(sdlpath) then
  892. do
  893. newline
  894. print RED""sdlpath" Doesn't Exist! - Inform The SysOp"
  895. newline
  896. continue
  897. exit
  898. end
  899. if ~exists(sdlpath''username'.SDL') then
  900. do
  901. call Open(LivinJoy,sdlpath''username'.SDL','W')
  902. call close(LivinJoy)
  903. end
  904. Call Open(MFOut,sdlpath''username'.SDL','W')
  905. psb=0
  906. do forever
  907. If ~carrier then exit
  908. psb=psb+1
  909. sirenag=upper(subword(markstring,psb,1))
  910. if sirenag="" then leave
  911. nicenripe=""
  912. if areaofile.psb~="AREAOFILE."psb&areaofile.psb~="" then nicenripe='/CDPATH\'right(areaofile.psb,8)''fpathmcd.psb
  913. Call Writeln(MFOut,nicenripe)
  914. Call Writeln(MFOut,sirenag)
  915. end
  916. Call Close(MFOut)
  917. print RED"Saving Complete."
  918. newline
  919. queryn BLD""WHT"Download File Descriptions?"
  920. if upper(result)="Y" then
  921. do
  922. protocolsend tempath"File_Id"
  923. address command "Delete "tempath"File_Id >>"tempath"FLIST_CLI_REPORTS"
  924. end
  925. end
  926. send clr
  927. cls
  928. call credits
  929. exit
  930. end
  931. if fsopt="C"&checkoffline=0 then
  932. do
  933. send "Activating Offline Checking"
  934. checkoffline=1
  935. fsopt=""
  936. send CLR""scrln+7";0H"WHT"                    Offline Checking Has Been Turned On"
  937. address command "WAIT "defwait" >>"tempath"FLIST_CLI_REPORTS"
  938. send ""scrln+7";0H"
  939. end
  940. if fsopt="C"&checkoffline=1 then
  941. do
  942. send "Disabling Offline Checking"
  943. checkoffline=0
  944. fsopt=""
  945. send CLR""scrln+7";0H"WHT"                    Offline Checking Has Been Turned Off"
  946. address command "WAIT "defwait" >>"tempath"FLIST_CLI_REPORTS"
  947. send ""scrln+7";0H"
  948. end
  949. if fsopt="="&scrln<20 then
  950. do
  951. send "Lengthening FList"
  952. scrln=scrln+1
  953. call redraw
  954. call scroll
  955. end
  956. if fsopt="-"&scrln>2 then
  957. do
  958. send "Shortening FList"
  959. scrln=scrln-1
  960. call redraw
  961. call scroll
  962. end
  963. if fsopt="T" then
  964. do
  965. send "Restoring FList Length To Default"
  966. scrln=screenln-7
  967. if scrln<2 then scrln=2
  968. if scrln>20 then scrln=20
  969. call redraw
  970. call scroll
  971. end
  972. if fsopt="*"&bebob>2 then
  973. do
  974. send "Sorting FileList"
  975. call sort
  976. end
  977. if (fsopt="M"&bebob>2)&start<bebob then
  978. do
  979. send "Marking A/Some File(s)..."
  980. call mark
  981. end
  982. if (fsopt="R"&bebob>2)&start<bebob then
  983. do
  984. send "Viewing An Archive..."
  985. call arcmark
  986. end
  987. if (fsopt="O"&bebob>2)&start<bebob then
  988. do
  989. send "Obtaining More Information On A File..."
  990. call mormark
  991. end
  992. if (fsopt="V"&useraccess>sysoptaxx-1&bebob>2)&start<bebob then
  993. do
  994. send "(Priveliged) Moving A File To A Different File Area..."
  995. call movefile
  996. end
  997. if (fsopt="D"&useraccess>sysoptaxx-1&bebob>2)&start<bebob then
  998. do
  999. send "(Priveliged) Deleting A File..."
  1000. call delfile
  1001. end
  1002. if (fsopt="Y"&useraccess>sysoptaxx-1&bebob>2)&start<bebob then
  1003. do
  1004. send "(Priveliged) Copy A File To An External Directory..."
  1005. call copfile
  1006. end
  1007. if fsopt="S"&bebob>2 then
  1008. do
  1009. send "Searching For A/Some File(s)..."
  1010. call searchforfile
  1011. end
  1012. if (fsopt="E"&bebob>2)&start<bebob then
  1013. do
  1014. send "Attempting To Read A Text File..."
  1015. call rtxtphile
  1016. end
  1017. if (fsopt="X"&useraccess>sysoptaxx-1) then
  1018. do
  1019. send "Preparing An External Directory For Manipulation..."
  1020. call extdir
  1021. end
  1022. end
  1023. searchforfile:
  1024. query ""scrln+7";0H"YEL"Enter [Part Of] String To Search For: "CYN
  1025. sopostsf=upper(Result)
  1026. if sopostsf="RESULT" then
  1027. do
  1028. send ""scrln+7";0H"
  1029. return
  1030. end
  1031. send ""scrln+7";0H"CYN""FSH"Searching For String "YEL"["WHT""sopostsf""YEL"]"CYN" ..."
  1032. do z=1 to bebob
  1033. digbag=pos(sopostsf,upper(currfname.z))
  1034. if digbag>0 then
  1035. do
  1036. send d2c(7)
  1037. start=z
  1038. send ""scrln+7";0H"WHT"Found Positive Match!"CLR
  1039. send ""scrln+7";0H"
  1040. send CLR"H"
  1041. call scroll
  1042. send "H"
  1043. send BLD""PNK""left(currfname.z,93)""CLR
  1044. send ""scrln+7";0H"
  1045. send YEL"Continue Search Y/N? "
  1046. getchar
  1047. if upper(Result)~="Y" then
  1048. do
  1049. send ""scrln+7";0H"
  1050. return
  1051. end
  1052. send ""scrln+7";0H"CYN"Searching For String "YEL"["WHT""sopostsf""YEL"]"CYN" ..."
  1053. end
  1054. end
  1055. send ""scrln+7";0H"WHT"No Match Found."CLR
  1056. address command "WAIT "defwait" >>"tempath"FLIST_CLI_REPORTS"
  1057. send ""scrln+7";0H"
  1058. return
  1059. scroll:
  1060. send "H"
  1061. send CLR
  1062. do i=start to start+(scrln-1)
  1063. if i>bebob then currfname.i="\"
  1064. if left(currfname.i,1)="\" then print ""CYN""BLD""left(right(currfname.i,length(currfname.i)-1),78)""CLR
  1065. else
  1066. do
  1067. if datatype(substr(currfname.i,25,7,))="NUM" then
  1068. do
  1069. sizz=substr(currfname.i,25,7,)/1000
  1070. comper=pos('.',sizz)
  1071. if comper=0 then comper=length(sizz)+1
  1072. mon=substr(substr(currfname.i,33,6,),3,2,)
  1073. if mon="01" then mont="Jan"
  1074. if mon="02" then mont="Feb"
  1075. if mon="03" then mont="Mar"
  1076. if mon="04" then mont="Apr"
  1077. if mon="05" then mont="May"
  1078. if mon="06" then mont="Jun"
  1079. if mon="07" then mont="Jul"
  1080. if mon="08" then mont="Aug"
  1081. if mon="09" then mont="Sep"
  1082. if mon="10" then mont="Oct"
  1083. if mon="11" then mont="Nov"
  1084. if mon="12" then mont="Dec"
  1085. currfname.i=left(currfname.i,22)" "yel""right(left(sizz,comper-1)"k",5)" "blu""right(substr(currfname.i,33,6,),2)'-'left(mont,3)'-'left(substr(currfname.i,33,6,),2)" "cyn""substr(currfname.i,40,length(currfname.i)-39,)
  1086. end
  1087. if mark.i.goarea="Y" then send RED""BLD
  1088. print left(Currfname.i,93)""CLR
  1089. if checkoffline=1 then
  1090. do
  1091. if ~exists(areapath''strip(left(currfname.i,22),'T')) then
  1092. do
  1093. print "AC"RED""BLD""FSH"!Offline!"CLR
  1094. address command 'echo "'left(Currfname.i,77)'" >>"'tempath'DME"'
  1095. end
  1096. end
  1097. end
  1098. end
  1099. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT""showopts"):"CYN" "CLR""BBLU""CYN"         "BLD""BBLU""WHT"["YEL""pageno""WHT"/"YEL""pages""WHT"]"CYN"   "CLR
  1100. return
  1101. movefile:
  1102. smeeegheed=1
  1103. do bigtenfour=2 to bebob-1
  1104. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1105. end
  1106. if smeeegheed=1 then return
  1107. if farea="!" then return
  1108. row=3
  1109. raw=(start+row)-3
  1110. if left(Currfname.raw,1)="\" then
  1111. do
  1112. do until left(currfname.raw,1)~="\"
  1113. raw=(start+row)-3
  1114. row=row+1
  1115. if row<3 then leave
  1116. end
  1117. row=row-1
  1118. if row<3 then row=oldrow
  1119. end
  1120. print CLR""scrln+7";0H"YEL""BLD"Move File -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1121. do forever
  1122. if ~carrier then exit
  1123. raw=(start+row)-3
  1124. send BRED""BLD""WHT
  1125. if mark.raw.goarea="Y" then send BRED""CYN""BLD
  1126. send ''row'H'left(currfname.raw,93)
  1127. getchar
  1128. markopt=upper(result)
  1129. if c2d(markopt)=13 then markopt="M"
  1130. if markopt='1B'x then markopt="Q"
  1131. If markopt='5b'x|markopt='9b'x then
  1132. Do
  1133. MayGetChar
  1134. Tmp=result
  1135. If Tmp='A' then markopt='8'
  1136. If Tmp='B' then markopt='2'
  1137. If Tmp='C'&pageno<pages then
  1138. do
  1139. pageno=pageno+1
  1140. start=start+scrln
  1141. call scroll
  1142. signal movefile
  1143. end
  1144. If Tmp='D' then if START>1 then
  1145. do
  1146. if start-scrln<1 then start=scrln+1
  1147. pageno=pageno-1
  1148. start=start-scrln
  1149. call scroll
  1150. signal movefile
  1151. end
  1152. End
  1153. if markopt="2" then
  1154. do
  1155. replin=downer()
  1156. if replin=1 then signal movefile
  1157. end
  1158. shutupbeavis=0
  1159. if markopt="8" then call uppa
  1160. if markopt="M" then
  1161. do
  1162. systeminfo '2'
  1163. curraread=result
  1164. send clr
  1165. cls
  1166. if exists("BBS:Rexx/FList_Area.Trans") then
  1167. do
  1168. call 'BBS:Rexx/FList_Area.Trans'
  1169. systeminfo '2'
  1170. marea=result
  1171. end
  1172. else
  1173. do
  1174. if ~exists("BBS:TEXT/FileLibs.ANSI")&~exists("BBS:TEXT/FileLibs") then LISTFILEAREAS
  1175. else sendfile "BBS:Text/FileLibs"
  1176. Newline
  1177. do until marea~="RESULT"&Datatype(marea)="NUM"
  1178. Prompt 4 'NORMAL "APlease Enter File Area To Move File To (Q/X To Quit): "'
  1179. marea=upper(result)
  1180. if marea="Q"|marea="X" then
  1181. do
  1182. call redraw
  1183. call scroll
  1184. return
  1185. end
  1186. newline
  1187. end
  1188. end
  1189. if marea=curraread then
  1190. do
  1191. cls
  1192. newline
  1193. print BLD""RED"You don't want to move to the same area do you?!"
  1194. newline
  1195. continue
  1196. call redraw
  1197. call scroll
  1198. return
  1199. end
  1200. send clr
  1201. cls
  1202. print YEL"Adjusting File Lists, Please Wait..."
  1203. Call Open(in,areapath'files.bbs','R')
  1204. Call Open(out,tempath'flistmove.tmp','W')
  1205. tcptg=0
  1206. vanessa=0
  1207. Do Until eof(in)
  1208. If ~carrier then exit
  1209. if vanessa=0 then ri=readln(in)
  1210. vanessa=0
  1211. if upper(left(ri,22))~=upper(left(currfname.raw,22))&ri~="" then Call Writeln(out,ri)
  1212. if upper(left(ri,22))=upper(left(currfname.raw,22))&ri~="" then
  1213. do
  1214. mfl=ri
  1215. if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then
  1216. do
  1217. tcptg=1
  1218. daytona=0
  1219. do until left(ri,1)~="\"
  1220. daytona=daytona+1
  1221. ri=readln(in)
  1222. fidbit.daytona=ri
  1223. end
  1224. daytona=daytona-1
  1225. vanessa=1
  1226. end
  1227. end
  1228. end
  1229. Call Close(in)
  1230. Call Close(out)
  1231. address command "COPY "tempath"flistmove.tmp "areapath"files.bbs >>"tempath"FLIST_CLI_REPORTS"
  1232. address command "DELETE "tempath"flistmove.tmp >>"tempath"FLIST_CLI_REPORTS"
  1233. newline
  1234. print YEL"Please Wait... Transferring File."
  1235. FILEAREA marea
  1236. systeminfo '7'
  1237. mpath=upper(result)
  1238. address command "COPY "areapath""strip(left(currfname.raw,22),'T')" "mpath" >>"tempath"FLIST_CLI_REPORTS"
  1239. address command "DELETE "areapath""strip(left(currfname.raw,22),'T')" >>"tempath"FLIST_CLI_REPORTS"
  1240. address command "COPY "areapath""strip(left(currfname.raw,22),'T')".DESC "mpath" >>"tempath"FLIST_CLI_REPORTS"
  1241. address command "DELETE "areapath""strip(left(currfname.raw,22),'T')".DESC >>"tempath"FLIST_CLI_REPORTS"
  1242. Call Open(out,mpath'files.bbs','A')
  1243. Call Writeln(out,mfl)
  1244. if tcptg=1 then
  1245. do
  1246. do nemesis=1 to daytona
  1247. Call Writeln(out,fidbit.nemesis)
  1248. end
  1249. end
  1250. Call Close(out)
  1251. newline
  1252. print YEL"File Move Complete!"
  1253. newline
  1254. continue
  1255. filearea curraread
  1256. call reloadfiles
  1257. call redraw
  1258. call scroll
  1259. row=row-1
  1260. smeeegheed=1
  1261. do bigtenfour=2 to bebob-1
  1262. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1263. end
  1264. row=3
  1265. raw=(start+row)-3
  1266. if left(Currfname.raw,1)="\" then
  1267. do
  1268. do until left(currfname.raw,1)~="\"
  1269. raw=(start+row)-3
  1270. row=row+1
  1271. if row<3 then leave
  1272. end
  1273. row=row-1
  1274. if row<3 then row=oldrow
  1275. end
  1276. if smeeegheed=1 then return
  1277. if bebob<3 then return
  1278. end
  1279. if markopt="Q" then
  1280. do
  1281. print ""scrln+7";0H"CLR""
  1282. send CLR"H"
  1283. call scroll
  1284. return
  1285. end
  1286. end
  1287. send CLR"H"
  1288. call scroll
  1289. signal movefile
  1290. delfile:
  1291. smeeegheed=1
  1292. do bigtenfour=2 to bebob-1
  1293. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1294. end
  1295. if smeeegheed=1 then return
  1296. if farea="!" then return
  1297. row=3
  1298. raw=(start+row)-3
  1299. if left(Currfname.raw,1)="\" then
  1300. do
  1301. do until left(currfname.raw,1)~="\"
  1302. raw=(start+row)-3
  1303. row=row+1
  1304. if row<3 then leave
  1305. end
  1306. row=row-1
  1307. if row<3 then row=oldrow
  1308. end
  1309. print CLR""scrln+7";0H"YEL""BLD"Del. File -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1310. do forever
  1311. if ~carrier then exit
  1312. raw=(start+row)-3
  1313. send BRED""BLD""WHT
  1314. if mark.raw.goarea="Y" then send BRED""CYN""BLD
  1315. send ''row'H'left(currfname.raw,93)
  1316. getchar
  1317. markopt=upper(result)
  1318. if c2d(markopt)=13 then markopt="M"
  1319. if markopt='1B'x then markopt="Q"
  1320. If markopt='5b'x|markopt='9b'x then
  1321. Do
  1322. MayGetChar
  1323. Tmp=result
  1324. If Tmp='A' then markopt='8'
  1325. If Tmp='B' then markopt='2'
  1326. If Tmp='C'&pageno<pages then
  1327. do
  1328. pageno=pageno+1
  1329. start=start+scrln
  1330. call scroll
  1331. signal delfile
  1332. end
  1333. If Tmp='D' then if START>1 then
  1334. do
  1335. if start-scrln<1 then start=scrln+1
  1336. pageno=pageno-1
  1337. start=start-scrln
  1338. call scroll
  1339. signal delfile
  1340. end
  1341. End
  1342. if markopt="2" then
  1343. do
  1344. replin=downer()
  1345. if replin=1 then signal delfile
  1346. end
  1347. shutupbeavis=0
  1348. if markopt="8" then call uppa
  1349. if markopt="M" then
  1350. do
  1351. if left(currfname.raw,1)="\" then leave
  1352. send CLR""scrln+7";0H"
  1353. queryn "Remove From File Listing?"
  1354. if upper(result)="Y" then
  1355. do
  1356. Call Open(in,areapath'files.bbs','R')
  1357. Call Open(out,tempath'flistmove.tmp','W')
  1358. tcptg=0
  1359. vanessa=0
  1360. Do Until eof(in)
  1361. If ~carrier then exit
  1362. if vanessa=0 then ri=readln(in)
  1363. vanessa=0
  1364. if upper(left(ri,22))~=upper(left(currfname.raw,22))&ri~="" then Call Writeln(out,ri)
  1365. if upper(left(ri,22))=upper(left(currfname.raw,22))&ri~="" then
  1366. do
  1367. mfl=ri
  1368. if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then
  1369. do
  1370. do until left(ri,1)~="\"
  1371. ri=readln(in)
  1372. end
  1373. vanessa=1
  1374. end
  1375. end
  1376. end
  1377. Call Close(in)
  1378. Call Close(out)
  1379. address command "COPY "tempath"flistmove.tmp "areapath"files.bbs >>"tempath"FLIST_CLI_REPORTS"
  1380. address command "DELETE "tempath"flistmove.tmp >>"tempath"FLIST_CLI_REPORTS"
  1381. end
  1382. send CLR""scrln+7";0H"
  1383. queryn "Remove File From Disk?"
  1384. if upper(result)="Y" then
  1385. do
  1386. address command "DELETE "areapath""strip(left(currfname.raw,22),'T')" >>"tempath"FLIST_CLI_REPORTS"
  1387. address command "DELETE "areapath""strip(left(currfname.raw,22),'T')".DESC >>"tempath"FLIST_CLI_REPORTS"
  1388. end
  1389. send CLR"H"
  1390. send CLR""scrln+7";0H"
  1391. call redraw
  1392. call reloadfiles
  1393. call scroll
  1394. row=row-1
  1395. smeeegheed=1
  1396. do bigtenfour=2 to bebob-1
  1397. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1398. end
  1399. row=3
  1400. raw=(start+row)-3
  1401. if left(Currfname.raw,1)="\" then
  1402. do
  1403. do until left(currfname.raw,1)~="\"
  1404. raw=(start+row)-3
  1405. row=row+1
  1406. if row<3 then leave
  1407. end
  1408. row=row-1
  1409. if row<3 then row=oldrow
  1410. end
  1411. if smeeegheed=1 then return
  1412. if bebob<3 then return
  1413. end
  1414. if markopt="Q" then
  1415. do
  1416. print ""scrln+7";0H"CLR""
  1417. send CLR"H"
  1418. call scroll
  1419. return
  1420. end
  1421. end
  1422. send CLR"H"
  1423. call scroll
  1424. signal delfile
  1425. editdesc:
  1426. smeeegheed=1
  1427. do bigtenfour=2 to bebob-1
  1428. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1429. end
  1430. if smeeegheed=1 then return
  1431. row=3
  1432. raw=(start+row)-3
  1433. if left(Currfname.raw,1)="\" then
  1434. do
  1435. do until left(currfname.raw,1)~="\"
  1436. raw=(start+row)-3
  1437. row=row+1
  1438. if row<3 then leave
  1439. end
  1440. row=row-1
  1441. if row<3 then row=oldrow
  1442. end
  1443. print CLR""scrln+7";0H"YEL""BLD"Edit Desc -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1444. do forever
  1445. if ~carrier then exit
  1446. raw=(start+row)-3
  1447. send BBLU""BLD""WHT
  1448. if mark.raw.goarea="Y" then send BRED""CYN""BLD
  1449. send ''row'H'left(currfname.raw,93)
  1450. getchar
  1451. markopt=upper(result)
  1452. if c2d(markopt)=13 then markopt="M"
  1453. if markopt='1B'x then markopt="Q"
  1454. If markopt='5b'x|markopt='9b'x then
  1455. Do
  1456. MayGetChar
  1457. Tmp=result
  1458. If Tmp='A' then markopt='8'
  1459. If Tmp='B' then markopt='2'
  1460. If Tmp='C'&pageno<pages then
  1461. do
  1462. pageno=pageno+1
  1463. start=start+scrln
  1464. call scroll
  1465. signal editdesc
  1466. end
  1467. If Tmp='D' then if START>1 then
  1468. do
  1469. if start-scrln<1 then start=scrln+1
  1470. pageno=pageno-1
  1471. start=start-scrln
  1472. call scroll
  1473. signal editdesc
  1474. end
  1475. End
  1476. if markopt="2" then
  1477. do
  1478. replin=downer()
  1479. if replin=1 then signal editdesc
  1480. end
  1481. shutupbeavis=0
  1482. if markopt="8" then call uppa
  1483. if markopt="M" then
  1484. do
  1485. whoupped=""
  1486. if useraccess>sysoptaxx then whoupped=upper(username)
  1487. if farea~="!" then
  1488. do
  1489. if open(findwho,areapath''strip(left(Currfname.raw,22),'T')'.Desc','R')&userAccess<(sysoptaxx+1) then
  1490. do
  1491. whoupped=upper(readln(findwho))
  1492. end
  1493. Call Close(findwho)
  1494. end
  1495. if whoupped~=upper(username) then
  1496. do
  1497. send CLR""scrln+6";0H"WHT"                     Sorry You Didn't Upload This File!"
  1498. address command "WAIT "defwait" >>"tempath"FLIST_CLI_REPORTS"
  1499. send ""scrln+6";0H"
  1500. call redraw
  1501. call scroll
  1502. return
  1503. end
  1504. send ""row"HC"BBLU
  1505. query "\\"strip(substr(currfname.raw,55,38,),'T')
  1506. newdesc=result
  1507. Call Open(In,goarea,'R')
  1508. Call Open(Out,tempath'EditFList.Tmp','W')
  1509. gangstar=''
  1510. if farea="!" then gangstar=right(currfname.raw,length(Currfname.raw)-79)
  1511. do until eof(in)
  1512. If ~carrier then exit
  1513. stufint=readln(in)
  1514. stufin=left(stufint,22)
  1515. if stufin~=left(currfname.raw,22)&stufin~="" then Call Writeln(out,stufint)
  1516. if stufin=left(currfname.raw,22)&stufin~="" then Call Writeln(out,left(left(stufint,39)''newdesc,79)''gangstar)
  1517. end
  1518. Call Close(in)
  1519. Call Close(out)
  1520. address command 'COPY "'tempath'EditFList.Tmp" "'goarea'" >>'tempath'FLIST_CLI_REPORTS'
  1521. address command 'DELETE "'tempath'EditFList.Tmp" >>'tempath'FLIST_CLI_REPORTS'
  1522. send CLR"H"
  1523. call reloadfiles
  1524. call scroll
  1525. end
  1526. if markopt="Q" then
  1527. do
  1528. print ""scrln+7";0H"CLR""
  1529. send CLR"H"
  1530. call scroll
  1531. return
  1532. end
  1533. end
  1534. send CLR"H"
  1535. call scroll
  1536. signal editdesc
  1537. copfile:
  1538. smeeegheed=1
  1539. do bigtenfour=2 to bebob-1
  1540. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1541. end
  1542. if smeeegheed=1 then return
  1543. row=3
  1544. raw=(start+row)-3
  1545. if left(Currfname.raw,1)="\" then
  1546. do
  1547. do until left(currfname.raw,1)~="\"
  1548. raw=(start+row)-3
  1549. row=row+1
  1550. if row<3 then leave
  1551. end
  1552. row=row-1
  1553. if row<3 then row=oldrow
  1554. end
  1555. print CLR""scrln+7";0H"YEL""BLD"Copy File -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1556. do forever
  1557. if ~carrier then exit
  1558. raw=(start+row)-3
  1559. send BRED""BLD""WHT
  1560. if mark.raw.goarea="Y" then send BRED""CYN""BLD
  1561. send ''row'H'left(currfname.raw,93)
  1562. getchar
  1563. markopt=upper(result)
  1564. if c2d(markopt)=13 then markopt="M"
  1565. if markopt='1B'x then markopt="Q"
  1566. If markopt='5b'x|markopt='9b'x then
  1567. Do
  1568. MayGetChar
  1569. Tmp=result
  1570. If Tmp='A' then markopt='8'
  1571. If Tmp='B' then markopt='2'
  1572. If Tmp='C'&pageno<pages then
  1573. do
  1574. pageno=pageno+1
  1575. start=start+scrln
  1576. call scroll
  1577. signal copfile
  1578. end
  1579. If Tmp='D' then if START>1 then
  1580. do
  1581. if start-scrln<1 then start=scrln+1
  1582. pageno=pageno-1
  1583. start=start-scrln
  1584. call scroll
  1585. signal copfile
  1586. end
  1587. End
  1588. if markopt="2" then
  1589. do
  1590. replin=downer()
  1591. if replin=1 then signal copfile
  1592. end
  1593. shutupbeavis=0
  1594. if markopt="8" then call uppa
  1595. if markopt="M" then
  1596. do
  1597. if farea="!" then far=cdpath.cdselect''right(currfname.raw,length(currfname.raw)-94)
  1598. if farea="!" then if pos(':',right(currfname.raw,length(currfname.raw)-94))>0 then far=right(currfname.raw,length(currfname.raw)-94)
  1599. nareapath=areapath
  1600. if farea="!" then nareapath=far
  1601. newline
  1602. query CLR""scrln+7";0HEnter FULL Path (With / At End If Directory"CLR"): "CYN
  1603. fullcpath=result
  1604. if ~exists(fullcpath) then
  1605. do
  1606. print "A"RED"The Path You Have Specified Doesn't Exist!"
  1607. address command "Wait "defwait" >>"tempath"FLIST_CLI_REPORTS"
  1608. call redraw
  1609. call scroll
  1610. return
  1611. end
  1612. if exists(fullcpath""strip(left(currfname.raw,22),'T')) then
  1613. do
  1614. queryn "A"BLD""RED"That File Already Exists In That Path!, Overwrite?"
  1615. print "A"
  1616. if upper(Result)~="Y" then
  1617. do
  1618. call redraw
  1619. return
  1620. end
  1621. end
  1622. address command "COPY "nareapath""strip(left(currfname.raw,22),'T')" "fullcpath" >>"tempath"FLIST_CLI_REPORTS"
  1623. print "A"YEL"File Copied!"
  1624. address command "Wait "defwait-1" >>"tempath"FLIST_CLI_REPORTS"
  1625. print "A"
  1626. send CLR"H"
  1627. call redraw
  1628. call scroll
  1629. end
  1630. if markopt="Q" then
  1631. do
  1632. print ""scrln+7";0H"CLR""
  1633. send CLR"H"
  1634. call scroll
  1635. return
  1636. end
  1637. end
  1638. send CLR"H"
  1639. call scroll
  1640. signal copfile
  1641. mark:
  1642. smeeegheed=1
  1643. do bigtenfour=2 to bebob-1
  1644. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1645. end
  1646. if smeeegheed=1 then return
  1647. row=3
  1648. raw=(start+row)-3
  1649. if left(Currfname.raw,1)="\" then
  1650. do
  1651. do until left(currfname.raw,1)~="\"
  1652. raw=(start+row)-3
  1653. row=row+1
  1654. if row<3 then leave
  1655. end
  1656. row=row-1
  1657. if row<3 then row=oldrow
  1658. end
  1659. print CLR""scrln+7";0H"YEL""BLD"Mark File -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1660. do forever
  1661. if ~carrier then exit
  1662. raw=(start+row)-3
  1663. send BBLU""BLD""WHT
  1664. if mark.raw.goarea="Y" then
  1665. do
  1666. send BBLU''RED''BLD''row'H'left(currfname.raw,22)
  1667. if exists(areapath''strip(left(currfname.raw,22),'T')) then
  1668. do
  1669. Call Open(In,areapath''strip(left(currfname.raw,22),'T'),'R')
  1670. folisize=seek(In,0,'E')
  1671. Call Close(In)
  1672. prevmarx=0
  1673. if ~exists(fpmpath''strip(left(currfname.raw,22),'T')'.fpm') then prevmarx=0
  1674. else
  1675. do
  1676. Call Open(In,fpmpath''strip(left(currfname.raw,22),'T')'.fpm','R')
  1677. prevmarx=readln(in)
  1678. Call close(in)
  1679. end
  1680. send left(''row'HC 'YEL'Previous Marks: 'GRN''right(prevmarx,5,'0')''YEL' Time To Download: 'GRN''word(dltime(folisize),1)' Mins 'word(dltime(folisize),2)' Secs',85)
  1681. end
  1682. end
  1683. else send ''row'H'left(currfname.raw,22)
  1684. getchar
  1685. markopt=upper(result)
  1686. if c2d(markopt)=13 then markopt="M"
  1687. if markopt='1B'x then markopt="Q"
  1688. If markopt='5b'x|markopt='9b'x then
  1689. Do
  1690. MayGetChar
  1691. Tmp=result
  1692. If Tmp='A' then markopt='8'
  1693. If Tmp='B' then markopt='2'
  1694. If Tmp='C'&pageno<pages then
  1695. do
  1696. pageno=pageno+1
  1697. start=start+scrln
  1698. call scroll
  1699. signal mark
  1700. end
  1701. If Tmp='D' then if START>1 then
  1702. do
  1703. if start-scrln<1 then start=scrln+1
  1704. pageno=pageno-1
  1705. start=start-scrln
  1706. call scroll
  1707. signal mark
  1708. end
  1709. End
  1710. if markopt="2" then
  1711. do
  1712. replin=downer()
  1713. if replin=1 then signal mark
  1714. end
  1715. shutupbeavis=0
  1716. if markopt="8" then call uppa
  1717. if markopt="M" then
  1718. do
  1719. if farea="!" then far=cdpath.cdselect''right(currfname.raw,length(currfname.raw)-94)''strip(left(currfname.raw,22),'T')
  1720. if farea="!" then if pos(':',right(currfname.raw,length(currfname.raw)-94))>0 then far=right(currfname.raw,length(currfname.raw)-94)''strip(left(currfname.raw,22),'T')
  1721. nareapath=areapath
  1722. if farea="!" then
  1723. do
  1724. nareapath=cdpath.cdselect''right(currfname.raw,length(currfname.raw)-79)
  1725. end
  1726. if pos('-'far'-',extcdstr)>0&farea="!" then
  1727. do
  1728. defmodule="ON!"
  1729. mkf=mkf-1
  1730. mark.raw.goarea="N"
  1731. send BBLU""BLD""WHT""row"H"left(currfname.raw,93)
  1732. extcdstr=delstr(extcdstr,pos('-'far'-',extcdstr),length('-'far'-'))
  1733. Call Open(damnin,tempath'FLIST_CDMARK_SCRIPT','R')
  1734. do until eof(damnin)
  1735. shine=readln(damnin)
  1736. if shine="" then leave
  1737. if compress(shine)~=""&upper(shine)~=upper(far) then address command 'Echo "'shine'" >>'tempath'FLIST_CDMARK_SCRIPT_'
  1738. end
  1739. Call Close(damnin)
  1740. address command "Delete "tempath"FLIST_CDMARK_SCRIPT >>"tempath"FLIST_CLI_REPORTS"
  1741. if exists(tempath"FLIST_CDMARK_SCRIPT_") then address command "Rename "tempath"FLIST_CDMARK_SCRIPT_ "tempath"FLIST_CDMARK_SCRIPT >>"tempath"FLIST_CLI_REPORTS"
  1742. end
  1743. if pos(strip(left(currfname.raw,22),'T'),markstring)>0 then
  1744. do
  1745. if farea~="!" then markstring=delstr(markstring,pos(strip(left(currfname.raw,22),'T'),markstring),length(strip(left(currfname.raw,22),'T')))
  1746. mkf=mkf-1
  1747. mark.raw.goarea="N"
  1748. send BBLU""BLD""WHT""row"H"left(currfname.raw,93)
  1749. defmodule="ON!"
  1750. If exists(tempath"Marked")&exists(tempath"Cool.FList") then
  1751. do
  1752. Call Open(Octo,tempath'FList.Tmp','W')
  1753. Call Open(Octi,tempath"Marked",'R')
  1754. Do Until Eof(Octi)
  1755. data=readln(Octi)
  1756. if upper(word(data,1))=upper(compress(left(currfname.raw,22))) then data=readln(Octi)
  1757. If Compress(data)~=""&~eof(Octi) then Call Writeln(Octo,data)
  1758. end
  1759. Call Close(Octo)
  1760. Call Close(Octi)
  1761. Address command 'Rename "'tempath'FList.Tmp" "'tempath'Marked" >>'tempath'FLIST_CLI_REPORTS'
  1762. unmarkfile compress(left(currfname.raw,22))
  1763. end
  1764. end
  1765. if pos(strip(left(currfname.raw,22),'T'),markstring)=0&defmodule~="ON!"&mkf<maxmark then
  1766. do
  1767. if farea="!" then
  1768. do
  1769. address command 'echo "'far'" >>'Tempath'FLIST_CDMARK_SCRIPT'
  1770. extcdstr=extcdstr'-'far'-'
  1771. end
  1772. ftmark=strip(left(currfname.raw,22),'T')
  1773. if pos(' ',strip(left(currfname.raw,22),'T'))>0 then address command 'Rename "'nareapath''ftmark'" "'nareapath''compress(ftmark)'" >>'tempath'FLIST_CLI_REPORTS'
  1774. if farea~="!" then markstring=overlay(compress(ftmark),markstring,length(markstring)+2,length(strip(left(currfname.raw,22),'T')),)
  1775. mkf=mkf+1
  1776. areaofile.mkf=farea
  1777. goar.mkf=goarea
  1778. numbofile.mkf=raw
  1779. if farea="!" then areaofile.mkf=1
  1780. descofile.mkf=substr(currfname.raw,55,39,)
  1781. if farea="!" then fpathmcd.mkf=nareapath
  1782. mark.raw.goarea="Y"
  1783. send BBLU""BLD""RED
  1784. send ''row'H'left(currfname.raw,93)
  1785. end
  1786. skipmon:
  1787. defmodule="OFF NOW SAID SHITSU!"
  1788. send CLR"A2H"GRN"Files Marked: "WHT""mkf" "
  1789. end
  1790. if markopt="Q" then
  1791. do
  1792. print ""scrln+7";0H"CLR""
  1793. send CLR"H"
  1794. call scroll
  1795. return
  1796. end
  1797. end
  1798. send CLR"H"
  1799. call scroll
  1800. signal mark
  1801. arcmark:
  1802. smeeegheed=1
  1803. do bigtenfour=2 to bebob-1
  1804. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1805. end
  1806. if smeeegheed=1 then return
  1807. row=3
  1808. raw=(start+row)-3
  1809. if left(Currfname.raw,1)="\" then
  1810. do
  1811. do until left(currfname.raw,1)~="\"
  1812. raw=(start+row)-3
  1813. row=row+1
  1814. if row<3 then leave
  1815. end
  1816. row=row-1
  1817. if row<3 then row=oldrow
  1818. end
  1819. print CLR""scrln+7";0H"YEL""BLD"Arc. Ed. -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1820. do forever
  1821. if ~carrier then exit
  1822. raw=(start+row)-3
  1823. send BBLU""BLD""WHT
  1824. if mark.raw.goarea="Y" then send BBLU""RED""BLD
  1825. send ''row'H'left(currfname.raw,93)
  1826. getchar
  1827. markopt=upper(result)
  1828. if c2d(markopt)=13 then markopt="M"
  1829. if markopt='1B'x then markopt="Q"
  1830. If markopt='5b'x|markopt='9b'x then
  1831. Do
  1832. MayGetChar
  1833. Tmp=result
  1834. If Tmp='A' then markopt='8'
  1835. If Tmp='B' then markopt='2'
  1836. If Tmp='C'&pageno<pages then
  1837. do
  1838. pageno=pageno+1
  1839. start=start+scrln
  1840. call scroll
  1841. signal arcmark
  1842. end
  1843. If Tmp='D' then if START>1 then
  1844. do
  1845. if start-scrln<1 then start=scrln+1
  1846. pageno=pageno-1
  1847. start=start-scrln
  1848. call scroll
  1849. signal arcmark
  1850. end
  1851. End
  1852. if markopt="2" then
  1853. do
  1854. replin=downer()
  1855. if replin=1 then signal arcmark
  1856. end
  1857. shutupbeavis=0
  1858. if markopt="8" then call uppa
  1859. if markopt="M" then
  1860. do
  1861. posrf=0
  1862. do issac=1 to nofarcsupp
  1863. if upper(right(strip(left(currfname.raw,22),'T'),length(arcerext.issac)))=upper(arcerext.issac) then
  1864. do
  1865. posrf=1
  1866. leave
  1867. end
  1868. end
  1869. if posrf=0 then leave
  1870. if farea="!" then far=cdpath.cdselect''right(currfname.raw,length(currfname.raw)-94)
  1871. if farea="!" then if pos(':',right(currfname.raw,length(currfname.raw)-94))>0 then far=right(currfname.raw,length(currfname.raw)-94)
  1872. if left(currfname.raw,1)="\" then leave
  1873. nareapath=areapath
  1874. if farea="!" then nareapath=far
  1875. ctexe=arcer.issac
  1876. if pos('%s',ctexe)>0 then ctexe=left(ctexe,pos('%s',ctexe)-1)''nareapath''strip(left(currfname.raw,22),'T')
  1877. if length(ctexe)>pos('%s',arcer.issac) then ctexe=ctexe''right(acrer.issac,length(arcer.issac)-pos('%s',arcer.issac)-1)
  1878. address command ctexe" >"tempath"FLIST.TMP"
  1879. if open(in,tempath'flist.tmp','R') then
  1880. do
  1881. send CLR"H"
  1882. do until eof(in)
  1883. If ~carrier then exit
  1884. do lcareful=1 to scrln-1
  1885. print ""
  1886. print "A"left(readln(in),79)
  1887. end
  1888. print "A"
  1889. continue
  1890. send CLR"H"
  1891. end
  1892. address command "DELETE "tempath"FLIST.TMP >>"tempath"FLIST_CLI_REPORTS"
  1893. Call Close(in)
  1894. end
  1895. send "H"
  1896. call scroll
  1897. send BBLU""BLD""WHT
  1898. send ''row'H'left(currfname.raw,93)
  1899. end
  1900. if markopt="Q" then
  1901. do
  1902. print ""scrln+7";0H"CLR""
  1903. send CLR"H"
  1904. call scroll
  1905. return
  1906. end
  1907. end
  1908. send CLR"H"
  1909. call scroll
  1910. signal arcmark
  1911. mormark:
  1912. smeeegheed=1
  1913. do bigtenfour=2 to bebob-1
  1914. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  1915. end
  1916. if smeeegheed=1 then return
  1917. row=3
  1918. raw=(start+row)-3
  1919. if left(Currfname.raw,1)="\" then
  1920. do
  1921. do until left(currfname.raw,1)~="\"
  1922. raw=(start+row)-3
  1923. row=row+1
  1924. if row<3 then leave
  1925. end
  1926. row=row-1
  1927. if row<3 then row=oldrow
  1928. end
  1929. print CLR""scrln+7";0H"YEL""BLD"More Info -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  1930. do forever
  1931. if ~carrier then exit
  1932. raw=(start+row)-3
  1933. send BBLU""BLD""WHT
  1934. if mark.raw.goarea="Y" then send BBLU""RED""BLD
  1935. send ''row'H'left(currfname.raw,93)
  1936. getchar
  1937. markopt=upper(result)
  1938. if c2d(markopt)=13 then markopt="M"
  1939. if markopt='1B'x then markopt="Q"
  1940. If markopt='5b'x|markopt='9b'x then
  1941. Do
  1942. MayGetChar
  1943. Tmp=result
  1944. If Tmp='A' then markopt='8'
  1945. If Tmp='B' then markopt='2'
  1946. If Tmp='C'&pageno<pages then
  1947. do
  1948. pageno=pageno+1
  1949. start=start+scrln
  1950. call scroll
  1951. signal mormark
  1952. end
  1953. If Tmp='D' then if START>1 then
  1954. do
  1955. if start-scrln<1 then start=scrln+1
  1956. pageno=pageno-1
  1957. start=start-scrln
  1958. call scroll
  1959. signal mormark
  1960. end
  1961. End
  1962. if markopt="2" then
  1963. do
  1964. replin=downer()
  1965. if replin=1 then signal mormark
  1966. end
  1967. shutupbeavis=0
  1968. if markopt="8" then call uppa
  1969. if markopt="M" then
  1970. do
  1971. call redraw
  1972. if left(currfname.raw,1)="\" then leave
  1973. if farea~="!"&exists(areapath""compress(left(currfname.raw,22))".Desc") then
  1974. do
  1975. Call Open(in,areapath""strip(left(currfname.raw,22),'T')".Desc",'R')
  1976. uld=readln(in)
  1977. end
  1978. if farea="!" then uld="FList - S.Gillibrand 1994/95"
  1979. send CLR"H"
  1980. Print "A"
  1981. newline
  1982. newline
  1983. newline
  1984. Print YEL""BLD"Uploaded By : "CYN""uld
  1985. newline
  1986. print YEL"FileName    : "CYN""strip(left(currfname.raw,22),'T')
  1987. print YEL"Description : "CYN""left(substr(currfname.raw,55,length(Currfname.raw)-40,),40)
  1988. print YEL"Upload Date : "CYN""substr(currfname.raw,40,9,)
  1989. newline
  1990. Call Open(ish,areapath''strip(left(currfname.raw,22),'T'),'R')
  1991. fsize=seek(ish,0,'E')
  1992. Call Close(ish)
  1993. newline
  1994. Print BLD""YEL"File Size: "BLD""CYN""fsize" Bytes ("fsizeconv"K)"
  1995. print BLD""YEL"Bps Rate : "BLD""CYN""bpsrate""CLR""YEL" - Approximate Time For Download: "CYN""BLD""word(dltime(fsize),1)""CLR""YEL" Minutes "CYN""BLD""word(dltime(fsize),2)""CLR""YEL" Seconds"
  1996. newline
  1997. Do i=1 to 3
  1998. Print ""
  1999. End
  2000. Print "A"
  2001. if farea~="!" then Prompt 1 'NORMAL "Press ENTER For Big Description"'
  2002. else Prompt 1 'NORMAL "Press ENTER To Return To FList Scroller"'
  2003. print "H"
  2004. if farea~="!" then
  2005. do
  2006. do until eof(in)
  2007. If ~carrier then exit
  2008. do lcareful=1 to scrln-1
  2009. print ""
  2010. data=readln(in)
  2011. if eof(in)=1 then leave
  2012. print "A"CYN""YEL""left(data,78)
  2013. end
  2014. print "A"
  2015. sheeko=MorePro()
  2016. if sheeko=0 then leave
  2017. send CLR"H"
  2018. end
  2019. buggeroff=0
  2020. end
  2021. Call Close(in)
  2022. send "H"
  2023. call scroll
  2024. send BBLU""BLD""WHT
  2025. send ''row'H'left(currfname.raw,93)
  2026. end
  2027. if markopt="Q" then
  2028. do
  2029. print ""scrln+7";0H"CLR""
  2030. send CLR"H"
  2031. call scroll
  2032. return
  2033. end
  2034. end
  2035. send CLR"H"
  2036. call scroll
  2037. signal mormark
  2038. rtxtphile:
  2039. smeeegheed=1
  2040. do bigtenfour=2 to bebob-1
  2041. if left(Currfname.bigtenfour,1)~="\" then smeeegheed=0
  2042. end
  2043. if smeeegheed=1 then return
  2044. row=3
  2045. raw=(start+row)-3
  2046. if left(Currfname.raw,1)="\" then
  2047. do
  2048. do until left(currfname.raw,1)~="\"
  2049. raw=(start+row)-3
  2050. row=row+1
  2051. if row<3 then leave
  2052. end
  2053. row=row-1
  2054. if row<3 then row=oldrow
  2055. end
  2056. print CLR""scrln+7";0H"YEL""BLD"Read Text -["CYN""WHT"M/Return"CYN" to "WHT"Select File"CYN", "WHT"Q/Esc"CYN" to "WHT"Quit"CYN", "WHT"8+2/Cursors"CYN" to "WHT"Move Bar"YEL"]-"CLR
  2057. do forever
  2058. if ~carrier then exit
  2059. raw=(start+row)-3
  2060. send BBLU""BLD""WHT
  2061. if mark.raw.goarea="Y" then send BBLU""RED""BLD
  2062. send ''row'H'left(currfname.raw,93)
  2063. getchar
  2064. markopt=upper(result)
  2065. if c2d(markopt)=13 then markopt="M"
  2066. if markopt='1B'x then markopt="Q"
  2067. If markopt='5b'x|markopt='9b'x then
  2068. Do
  2069. MayGetChar
  2070. Tmp=result
  2071. If Tmp='A' then markopt='8'
  2072. If Tmp='B' then markopt='2'
  2073. If Tmp='C'&pageno<pages then
  2074. do
  2075. pageno=pageno+1
  2076. start=start+scrln
  2077. call scroll
  2078. signal rtxtphile
  2079. end
  2080. If Tmp='D' then if START>1 then
  2081. do
  2082. if start-scrln<1 then start=scrln+1
  2083. pageno=pageno-1
  2084. start=start-scrln
  2085. call scroll
  2086. signal rtxtphile
  2087. end
  2088. End
  2089. if markopt="2" then
  2090. do
  2091. replin=downer()
  2092. if replin=1 then signal rtxtphile
  2093. end
  2094. shutupbeavis=0
  2095. if markopt="8" then call uppa
  2096. if markopt="M" then
  2097. do
  2098. if farea="!" then far=cdpath.cdselect''right(currfname.raw,length(currfname.raw)-94)''strip(left(currfname.raw,22),'T')
  2099. if farea="!" then if pos(':',right(currfname.raw,length(currfname.raw)-94))>0 then far=right(currfname.raw,length(currfname.raw)-94)''strip(left(currfname.raw,22),'T')
  2100. nareapath=areapath''strip(left(currfname.raw,22),'T')
  2101. if farea="!" then nareapath=far
  2102. donotdisturb=0
  2103. if left(currfname.raw,1)="\" then leave
  2104. print "H"
  2105. if ~exists(compress(nareapath)) then leave
  2106. Call Open(in,compress(nareapath),'R')
  2107. send CLR""scrln+7";0H"WHT"                              Checking File State..."
  2108. err=seek(in,0,'B')
  2109. do z=1 to 50
  2110. shine=readln(in)
  2111. if eof(in) then leave
  2112. do badspook=1 to length(shine)
  2113. if c2d(substr(shine,badspook,1,))<33|c2d(substr(shine,badspook,1,))>126 then
  2114. do
  2115. if c2d(substr(shine,badspook,1,))=10|c2d(substr(shine,badspook,1,))=13|c2d(substr(shine,badspook,1,))=32 then leave
  2116. send CLR""scrln+7";0H"WHT"                    Sorry This File Isn't Readable As Text!"
  2117. address command "Wait "defwait
  2118. send CLR""scrln+7";0H"
  2119. Call Close(in)
  2120. call scroll
  2121. return
  2122. end
  2123. end
  2124. end
  2125. send CLR""scrln+7";0H"
  2126. Call Close(in)
  2127. send clr
  2128. cls
  2129. sendfile compress(nareapath)
  2130. newline
  2131. continue
  2132. call redraw
  2133. send "H"
  2134. call scroll
  2135. send BBLU""BLD""WHT
  2136. send ''row'H'left(currfname.raw,93)
  2137. end
  2138. if markopt="Q" then
  2139. do
  2140. print ""scrln+7";0H"CLR""
  2141. send CLR"H"
  2142. call scroll
  2143. return
  2144. end
  2145. end
  2146. call redraw
  2147. send CLR"H"
  2148. call scroll
  2149. signal rtxtphile
  2150. syntax:
  2151. code=rc
  2152. newline
  2153. print "Oh dear we have an error!!"
  2154. newline
  2155. print "Line# : "sigl
  2156. print "Code  : "code
  2157. print "Error : "errortext(code)
  2158. newline
  2159. print "Please Inform The Sysop Of The Above Error Information..."
  2160. newline
  2161. continue
  2162. exit
  2163. maffair:
  2164. newline
  2165. cls
  2166. newline
  2167. print RED""BLD"You Have Insufficient Access To Enter That Area!"CLR
  2168. return
  2169. redraw:
  2170. pages=bebob/scrln
  2171. borrow=pos('.',pages)
  2172. if borrow>0 then pages=left(pages,borrow-1)+1
  2173. send clr
  2174. cls
  2175. print BLD""GRN"FList "ver$" (C) S.Gillibrand 1995 - Digital Design"
  2176. print CLR"A2H"GRN"Files Marked: "WHT""mkf
  2177. print BLD""BBLU""BLD""YEL"["WHT"Filename"CYN"            "YEL"]"CYN" "YEL"["WHT""CYN" "WHT"KB"YEL""CYN" "YEL"]["WHT""CYN" "WHT"Date"CYN"  "YEL"]("WHT"Dls"YEL")["WHT"Description"YEL""CYN"                      "YEL"]"CLR
  2178. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part 1):"BLU""CYN"          "WHT""BLD"["YEL""pageno""WHT"/"YEL""pages""WHT"]"CYN"                                        "
  2179. print BLD""BBLU"A"76-length(areaname)-6"C"YEL""BLD"Area:"CYN" "WHT""areaname""CYN" "CLR
  2180. if showopts=1 then
  2181. do
  2182. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"1):"CYN" "CLR
  2183. newline
  2184. Print WHT"["YEL"Q"WHT"]"CYN"uit To Menu "WHT"["YEL"A"WHT"]"CYN"rea Change "WHT"["YEL"M"WHT"]"CYN"ark File/s "WHT"["YEL"2"WHT"]"CYN" Down "WHT"["YEL"8"WHT"]"CYN" Up "WHT"["YEL"4"WHT"]"CYN" Top "WHT"["YEL"6"WHT"]"CYN" Bottom"
  2185. Print CYN"A"WHT"["YEL"R"WHT"]"CYN"chive Editor "CYN"M"WHT"["YEL"O"WHT"]"CYN"re Information "WHT"["YEL"S"WHT"]"CYN"earch String "CYN"R"WHT"["YEL"E"WHT"]"CYN"ad Text File "GRN"["WHT"F"GRN"]"YEL"lip "
  2186. print ""
  2187. end
  2188. if showopts=2 then
  2189. do
  2190. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"2):"CYN" "CLR
  2191. newline
  2192. Print ""CYN"Redra"WHT"["YEL"W"WHT"] "CYN"Ed"WHT"["YEL"I"WHT"]"CYN"t Description "WHT"["YEL"C"WHT"]"CYN"heck If Offline (Slower) "WHT"["YEL"="WHT"]"CYN"Lengthen Scroller"
  2193. Print ""WHT"["YEL"-"WHT"]"CYN"Shorten Scroller "CYN"Res"WHT"["YEL"T"WHT"]"CYN"ore Scroller Length "WHT"["YEL"*"WHT"]"CYN"Sort File Listing "GRN"["WHT"F"GRN"]"YEL"lip "
  2194. print ""
  2195. end
  2196. if showopts=3 then
  2197. do
  2198. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"3):"CYN" "CLR
  2199. newline
  2200. Print ""WHT"["YEL"P"WHT"]"CYN"assword Options "CYN"Pa"WHT"["YEL"L"WHT"]"CYN"ette Options "WHT"["YEL"!"WHT"]"CYN"Remark Saved Files "GRN"["WHT"F"GRN"]"YEL"lip "
  2201. Print ""WHT"["YEL"G"WHT"]"CYN"enerate File List"
  2202. Print ""
  2203. end
  2204. if showopts=4 then
  2205. do
  2206. print BLD""BBLU""WHT""BLD""scrln+3"HFList"CYN" "WHT"Options"CYN" "WHT"(Part"CYN" "WHT"3): "CLR
  2207. newline
  2208. print ""CYN"Co/SysOp: "CYN"Mo"WHT"["YEL"V"WHT"]"CYN"e File "WHT"["YEL"D"WHT"]"CYN"elete File "CYN"Cop"WHT"["YEL"Y"WHT"]"CYN" File To Dir "CYN"Load E"WHT"["YEL"X"WHT"]"CYN"ternal Dir "
  2209. Print ""
  2210. Print ""
  2211. end
  2212. return
  2213. reloadfiles:
  2214. parse arg areatwf
  2215. if compress(areatwf)=""|upper(areatwf)="AREATWF" then areatwf=goarea
  2216. bebob=1
  2217. currfname.bebob="\                            "GRN""BLD"o{Start Of File List}o                                              "CLR
  2218. send FSH""BLD""CYN"H                          oO["YEL"Processing Please Wait"CYN"]Oo"CLR
  2219. Call Open(in,areatwf,'R')
  2220. do until eof(in)
  2221. bebob=bebob+1
  2222. currfname.bebob=readln(in)
  2223. end
  2224. Call Close(in)
  2225. pages=bebob/scrln
  2226. borrow=pos('.',pages)
  2227. if borrow>0 then pages=left(pages,borrow-1)+1
  2228. currfname.bebob="\                             "RED""BLD"o{End Of File List}o                                               "CLR
  2229. address command 'run >NIL: Delete 'tempath'RESULTS >>'tempath'FLIST_CLI_REPORTS'
  2230. return
  2231. sort:
  2232. query YEL""scrln+7";0HEnter Sort Mode (A-Alpha, R-Reverse, F-Forward, D-Date, S-Size, C-Comment): "CYN
  2233. if upper(Result)="R" then call sortreverse
  2234. if upper(Result)="A" then call sortalpha
  2235. if upper(Result)="F" then call sortnormal
  2236. if upper(result)="D" then call sortdate
  2237. if upper(result)="S" then call sortsize
  2238. if upper(result)="C" then call sortcomment
  2239. send ""scrln+7";0H"
  2240. return
  2241. sortreverse:
  2242. send CLR""scrln+7";0H"WHT"                  Please Wait, Reverse Sorting File Listing"
  2243. address command "FileSort "goarea" "tempath"files.bbs R >>"tempath"FLIST_CLI_REPORTS"
  2244. call reloadfiles(tempath"FILES.BBS")
  2245. call scroll
  2246. return
  2247. sortalpha:
  2248. rev=''
  2249. queryn YEL""scrln+7";0HIn Reverse Order?: "CYN
  2250. send "A"
  2251. if upper(Result)="Y" then rev='r'
  2252. send CLR""scrln+7";0H"WHT"               Please Wait, Alphabetically Sorting File Listing"
  2253. address command "FileSort "goarea" "tempath"files.bbs a "rev" >>"tempath"FLIST_CLI_REPORTS"
  2254. call reloadfiles(tempath"FILES.BBS")
  2255. call scroll
  2256. return
  2257. sortdate:
  2258. rev=''
  2259. queryn YEL""scrln+7";0HIn Reverse Order?: "CYN
  2260. if upper(Result)="Y" then rev='r'
  2261. send CLR""scrln+7";0H"BLD""WHT"                Please Wait, Date Orderly Sorting File Listing"
  2262. address command "FileSort "goarea" "tempath"files.bbs d "rev" >>"tempath"FLIST_CLI_REPORTS"
  2263. call reloadfiles(tempath"FILES.BBS")
  2264. call scroll
  2265. return
  2266. sortsize:
  2267. rev=''
  2268. queryn YEL""scrln+7";0HIn Reverse Order?: "CYn
  2269. if upper(Result)="Y" then rev='r'
  2270. send CLR""scrln+7";0H"WHT""BLD"                  Please Wait, File Size Sorting File Listing"
  2271. address command "FileSort "goarea" "tempath"files.bbs s "rev" >>"tempath"FLIST_CLI_REPORTS"
  2272. call reloadfiles(tempath"FILES.BBS")
  2273. call scroll
  2274. return
  2275. sortcomment:
  2276. rev=''
  2277. queryn YEL""scrln+7";0HIn Reverse Order?: "CYN
  2278. if upper(Result)="Y" then rev='r'
  2279. send CLR""scrln+7";0H"WHT"                 Please Wait, File Comment Sorting File Listing"
  2280. address command "FileSort "goarea" "tempath"files.bbs c "rev" >>"tempath"FLIST_CLI_REPORTS"
  2281. call reloadfiles(tempath"FILES.BBS")
  2282. call scroll
  2283. return
  2284. sortnormal:
  2285. call reloadfiles
  2286. call scroll
  2287. return
  2288. extdir:
  2289. send CLR""scrln+7";0H"
  2290. query YEL"Enter External Dir Path: "CYN
  2291. xdir=result
  2292. if upper(xdir)="RESULT" then
  2293. do
  2294. send CLR""scrln+7";0H"
  2295. return
  2296. end
  2297. if ~exists(xdir) then
  2298. do
  2299. send CLR""scrln+7";0H"RED"                              That Path Doesn't Exist :-(!"
  2300. address command "Wait "defwait
  2301. send CLR""scrln+7";0H"
  2302. return
  2303. end
  2304. if right(xdir,1)~=":"&right(xdir,1)~="/" then xdir=xdir'/'
  2305. send CLR""scrln+7";0H"WHT"               Processing External Directory, Please Wait..."
  2306. address command 'List "'xdir'" Files Nohead >'tempath'Files.BBS'
  2307. Call Open(In,tempath'Files.BBS','R')
  2308. Call Open(Out,tempath'ExtFiles.BBS','W')
  2309. Call Writeln(out,'\')
  2310. Call Writeln(out,'\ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ')
  2311. Call Writeln(out,'\ External Directory Processed By FList - (c) S.Gillibrand 1995 - Digital Design')
  2312. Call Writeln(out,'\ External Dir Path = 'xdir)
  2313. Call Writeln(out,'\ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß')
  2314. Call Writeln(out,'\')
  2315. breg=0
  2316. do forever
  2317. if ~carrier then exit
  2318. do until length(strip(xdata,'T'))<61
  2319. xdata=readln(in)
  2320. end
  2321. if left(xdata,1)=":" then
  2322. do
  2323. xcomm=left(right(xdata,length(xdata)-2),40)
  2324. xdata=readln(in)
  2325. end
  2326. datout=xfile''xsize' 'xdate' 'xcomm''xdir
  2327. if breg=1 then
  2328. do
  2329. Call Writeln(out,datout)
  2330. end
  2331. if eof(in) then leave
  2332. breg=1
  2333. xfile=left(xdata,23)
  2334. xdate.1=substr(xdata,43,9)
  2335. xdate="012345"
  2336. if datatype(left(xdate.1,2))="NUM" then
  2337. do
  2338. xdate.2=left(xdate.1,2)
  2339. xdate.3=right(xdate.1,2)
  2340. mon=upper(substr(xdate.1,4,3,))
  2341. if upper(mon)="JAN" then xdate.4="01"
  2342. if upper(mon)="FEB" then xdate.4="02"
  2343. if upper(mon)="MAR" then xdate.4="03"
  2344. if upper(mon)="APR" then xdate.4="04"
  2345. if upper(mon)="MAY" then xdate.4="05"
  2346. if upper(mon)="JUN" then xdate.4="06"
  2347. if upper(mon)="JUL" then xdate.4="07"
  2348. if upper(mon)="AUG" then xdate.4="08"
  2349. if upper(mon)="SEP" then xdate.4="09"
  2350. if upper(mon)="OCT" then xdate.4="10"
  2351. if upper(mon)="NOV" then xdate.4="11"
  2352. if upper(mon)="DEC" then xdate.4="12"
  2353. xdate=xdate.3''xdate.4''xdate.2
  2354. end
  2355. xsize=right(strip(substr(xdata,25,8)),8)
  2356. if compress(upper(xsize))="EMPTY" then xsize=right('0',8)
  2357. xcomm=left("<No Description Available>",40)
  2358. end
  2359. Call Close(in)
  2360. Call Close(out)
  2361. farea="!"
  2362. cdpath.65535=xdir
  2363. cdselect=65535
  2364. cdareaselect=65535
  2365. areapath=xdir
  2366. cdareatext.65535=tempath"ExtFiles.BBS"
  2367. send CLR""scrln+7";0H"
  2368. signal fresh
  2369. return
  2370. palprefs:
  2371. col.1=substr(red,4,1,)
  2372. col.2=substr(grn,4,1,)
  2373. col.3=substr(yel,4,1,)
  2374. col.4=substr(blu,4,1,)
  2375. col.5=substr(pnk,4,1,)
  2376. col.6=substr(cyn,4,1,)
  2377. col.7=substr(wht,4,1,)
  2378. send clr
  2379. cls
  2380. send "H"
  2381. sendfile "BBS:TEXT/FList_Colour.ANSI"
  2382. do i=1 to 7
  2383. send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"CLR
  2384. end
  2385. send "4H"RED""BLD">>"
  2386. ccol=1
  2387. do until cpref="V"
  2388. If ~carrier then exit
  2389. getchar
  2390. cpref=upper(result)
  2391. if cpref='1B'x then markopt="V"
  2392. If cpref='5b'x|cpref='9b'x then
  2393. Do
  2394. MayGetChar
  2395. Tmp=result
  2396. If Tmp='A' then cpref='S'
  2397. If Tmp='B' then cpref='A'
  2398. If Tmp='C' then cpref='='
  2399. If Tmp='D' then cpref='-'
  2400. End
  2401. if cpref="R" then
  2402. do
  2403. col.1=1
  2404. col.2=2
  2405. col.3=3
  2406. col.4=4
  2407. col.5=5
  2408. col.6=6
  2409. col.7=7
  2410. call redraw
  2411. send "H"
  2412. sendfile "BBS:TEXT/FList_Colour.ANSI"
  2413. do i=1 to 7
  2414. send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"CLR
  2415. end
  2416. send "4H"RED""BLD">>"
  2417. ccol=1
  2418. end
  2419. if cpref="="&col.ccol<7 then
  2420. do
  2421. col.ccol=col.ccol+1
  2422. send CLR""5+(2*ccol)";"35+(5*col.ccol)-5"H"col.ccol"m    "CLR
  2423. send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"CLR
  2424. end
  2425. if cpref="-"&col.ccol>1 then
  2426. do
  2427. col.ccol=col.ccol-1
  2428. send CLR""5+(2*ccol)";"35+(5*col.ccol)+5"H"col.ccol"m    "CLR
  2429. send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"CLR
  2430. end
  2431. if cpref="A" then
  2432. do
  2433. send ""5+(2*ccol)";34H"ccol"m"BLD"  "
  2434. ccol=ccol+1
  2435. if ccol=8 then ccol=1
  2436. send ""5+(2*ccol)";34H"ccol"m"BLD">>"CLR
  2437. end
  2438. if cpref="S" then
  2439. do
  2440. send ""5+(2*ccol)";34H"ccol"m"BLD"  "
  2441. ccol=ccol-1
  2442. if ccol=0 then ccol=7
  2443. send ""5+(2*ccol)";34H"ccol"m"BLD">>"CLR
  2444. end
  2445. end
  2446. red=""col.1"m"
  2447. grn=""col.2"m"
  2448. yel=""col.3"m"
  2449. blu=""col.4"m"
  2450. pnk=""col.5"m"
  2451. cyn=""col.6"m"
  2452. wht=""col.7"m"
  2453. if ~exists(pltpath) then
  2454. do
  2455. newline
  2456. print RED""pltpath" Doesn't Exist! - Inform The SysOp"
  2457. newline
  2458. continue
  2459. exit
  2460. end
  2461. Call Open(Out,pltpath''username'.PLT','W')
  2462. Call Writeln(out,""col.1"m")
  2463. Call Writeln(out,""col.2"m")
  2464. Call Writeln(out,""col.3"m")
  2465. Call Writeln(out,""col.4"m")
  2466. Call Writeln(out,""col.5"m")
  2467. Call Writeln(out,""col.6"m")
  2468. Call Writeln(out,""col.7"m")
  2469. Call Close(Out)
  2470. return
  2471. passwrd:
  2472. newline
  2473. extcmd=""
  2474. Print "Editing FList Password Access"
  2475. newline
  2476. prompt 30 'HIDE "'YEL'Enter New Password (Blank Line To Remove): 'CYN'"'
  2477. npass=upper(Result)
  2478. newline
  2479. prompt 30 'HIDE "'YEL'Re-Enter Password For Verification       : 'CYN'"'
  2480. scnd=result
  2481. if upper(scnd)~=npass&upper(scnd)~="RESULT" then
  2482. do
  2483. newline
  2484. print RED"Passwords Do Not Match - Keeping Old Password"
  2485. newline
  2486. continue
  2487. return
  2488. end
  2489. if ~exists(pswpath) then
  2490. do
  2491. newline
  2492. print RED""pswpath" Doesn't Exist! - Inform The SysOp"
  2493. newline
  2494. continue
  2495. exit
  2496. end
  2497. if upper(scnd)="RESULT" then
  2498. do
  2499. address command 'DELETE "'pswpath''username'.PSW" >>'tempath'FLIST_CLI_REPORTS'
  2500. newline
  2501. Print GRN"Password Removed"
  2502. newline
  2503. continue
  2504. return
  2505. end
  2506. if ~exists(pswpath) then
  2507. do
  2508. newline
  2509. print RED""pswpath" Doesn't Exist! - Inform The SysOp"
  2510. newline
  2511. continue
  2512. exit
  2513. end
  2514. Call Open(Out,pswpath''username'.PSW','W')
  2515. Call Close(out)
  2516. if ~exists(pswpath) then
  2517. do
  2518. newline
  2519. print RED""pswpath" Doesn't Exist! - Inform The SysOp"
  2520. newline
  2521. continue
  2522. exit
  2523. end
  2524. address command 'FileNote "'pswpath''username'.PSW" "'npass'" >>'tempath'FLIST_CLI_REPORTS'
  2525. newline
  2526. Print YEL"Password Edit Succesful!"
  2527. newline
  2528. continue
  2529. return
  2530. remark:
  2531. retr:
  2532. print CYN"Retreving Saved Files List..."
  2533. if ~exists(sdlpath) then
  2534. do
  2535. newline
  2536. print RED""sdlpath" Doesn't Exist! - Inform The SysOp"
  2537. newline
  2538. continue
  2539. exit
  2540. end
  2541. if ~exists(sdlpath''username'.SDL') then
  2542. do
  2543. newline
  2544. print RED"Sorry You Haven't Saved Any Marked Files!"
  2545. newline
  2546. continue
  2547. return
  2548. end
  2549. if ~exists(sdlpath) then
  2550. do
  2551. newline
  2552. print RED""sdlpath" Doesn't Exist! - Inform The SysOp"
  2553. newline
  2554. continue
  2555. exit
  2556. end
  2557. Call Open(LMIn,sdlpath''username'.SDL','R')
  2558. markstring=' '
  2559. mkf=1
  2560. Do Until Eof(LMIn)
  2561. If ~carrier then exit
  2562. extpath=readln(lmin)
  2563. fjr=readln(lmin)
  2564. if upper(left(Extpath,8))="/CDPATH\" then
  2565. do
  2566. if ~exists("FILE:TempArea/"fjr) then address command 'Copy "'right(extpath,length(extpath)-16)''fjr'" "FILE:TempArea/" >>'tempath'FLIST_CLI_REPORTS'
  2567. areaofile.mkf=strip(substr(extpath,9,8,),'T')
  2568. end
  2569. if fjr~="" then
  2570. do
  2571. print YEL""mkf""CYN" "fjr
  2572. markstring=markstring''FJR' '
  2573. mkf=mkf+1
  2574. end
  2575. end
  2576. mkf=mkf-1
  2577. Call Close(lmin)
  2578. resel:
  2579. newline
  2580. prompt 1 'NORMAL "'RED'R'YEL')'CYN'emark These Files, 'RED'D'YEL')'CYN'elete These Files, 'RED'Q'YEL')'CYN'uit, 'RED'C'YEL')'CYN'lear A Tag 'WHT'> 'BLD'"'
  2581. smfopt=upper(Result)
  2582. if smfopt="Q" then return
  2583. if smfopt="C" then
  2584. do
  2585. newline
  2586. prompt 20 'NORMAL "'YEL'FileName: 'CYN'"'
  2587. ftc=upper(Result)
  2588. if pos(ftc,upper(markstring))=0 then
  2589. do
  2590. newline
  2591. print RED"Sorry That File Isn't Tagged!"
  2592. address command "Wait "defwait" >>"tempath"FLIST_CLI_REPORTS"
  2593. newline
  2594. send CLR
  2595. newline
  2596. newline
  2597. do i=1 to words(markstring)
  2598. print YEL""i""CYN" "word(markstring,i)
  2599. end
  2600. signal resel
  2601. end
  2602. mn8=pos(ftc,upper(markstring))
  2603. markstring=delstr(markstring,mn8,length(ftc))
  2604. newline
  2605. newline
  2606. do i=1 to words(markstring)
  2607. print YEL""i""CYN" "word(markstring,i)
  2608. end
  2609. signal resel
  2610. end
  2611. if smfopt="D" then
  2612. do
  2613. newline
  2614. queryn YEL"Are You Sure You Want To Do This?"
  2615. if upper(Result)~="Y" then return
  2616. if ~exists(sdlpath) then
  2617. do
  2618. newline
  2619. print RED""sdlpath" Doesn't Exist! - Inform The SysOp"
  2620. newline
  2621. continue
  2622. exit
  2623. end
  2624. address command 'Delete "'sdlpath''username'.SDL" >>'tempath'FLIST_CLI_REPORTS'
  2625. newline
  2626. print RED"Deleted Saved Files List!"
  2627. address command "wait "defwait" >>"tempath"FLIST_CLI_REPORTS"
  2628. return
  2629. end
  2630. if compress(markstring)="" then
  2631. do
  2632. newline
  2633. print RED"No Files Are Marked For Retrievel!"
  2634. newline
  2635. continue
  2636. return
  2637. end
  2638. signal markemate
  2639. credits:
  2640. address command "Run >NIL: Delete "tempath"#?FLIST#? >NIL:"
  2641. address command "Run >NIL: Delete "tempath"#?File_Id#? >NIL:"
  2642. address command "Run >NIL: Delete "tempath"#?DME#? >NIL:"
  2643. address command "Run >NIL: Delete "tempath"#?Files.BBS#? >NIL:"
  2644. address command "Run >NIL: Delete "tempath"#?SendFiles.Temp#? >NIL:"
  2645. address command "Run >NIL: Delete "tempath"#?RESULTS#? >NIL:"
  2646. return
  2647. genlist:
  2648. do until compress(fileareas)~="?"
  2649. cls
  2650. print YEL"- Generating FileList -"
  2651. newline
  2652. listfileareas
  2653. newline
  2654. print "Enter File Area(s), Each Seperated By A Space (? For AreaList, * For All):"
  2655. query "-> "
  2656. fileareas=upper(result)
  2657. if fileareas="RESULT" then
  2658. do
  2659. call redraw
  2660. call scroll
  2661. return
  2662. end
  2663. end
  2664. newline
  2665. if datatype(Compress(fileareas))~="NUM"&compress(fileareas)~="*" then
  2666. do
  2667. call redraw
  2668. call scroll
  2669. return
  2670. end
  2671. oldisharea=farea
  2672. Call Open(out,tempath'FList_FileList.Temp','W')
  2673. if compress(fileareas)="*" then
  2674. do
  2675. Call Open(intorq,'BBS:Configs/File.Cfg','R')
  2676. do iiiii=1 to 3
  2677. dummy=readln(intorq)
  2678. end
  2679. highfarea=readln(intorq)
  2680. Call Close(intorq)
  2681. fileareas=""
  2682. do imogen=1 to highfarea
  2683. fileareas=fileareas""imogen" "
  2684. end
  2685. end
  2686. queryn PNK"ANSI Colour File Listing ?"
  2687. if upper(result)="Y" then madood=1
  2688. else madood=0
  2689. Call Writeln(Out,'')
  2690. Call Writeln(Out,'              FList - S.Gillibrand 1995 - Digital Design Production')
  2691. Call Writeln(Out,'               Reach Me At Digital Dreams BBS - +44 (0)1772 454995')
  2692. Call Writeln(Out,'                                2:250/602@Fidonet                 ')
  2693. Call Writeln(Out,'')
  2694. Call Writeln(out,' FileList Produced On ['date()'] at ['time()']')
  2695. Call Writeln(Out,'')
  2696. totfiles=0
  2697. totkilo=0
  2698. totareas=words(fileareas)
  2699. newline
  2700. print CYN"Processing Area(s) (Green=Passed / Red=Failed) [Any Key To Abort]: "
  2701. do proarea=1 to words(fileareas)
  2702. send WHT""word(fileareas,proarea)' '
  2703. filearea word(Fileareas,proarea)
  2704. freqres=result
  2705. systeminfo '7'
  2706. path=upper(result)
  2707. if freqres~=1|pos('/'path'/',restrictACCESS.useraccess)>0|pos('/'path'/',restrictFLAGS.userflags)>0|pos('/'path'/',restrictACAGS.userflags.useraccess)>0 then
  2708. do
  2709. send ""length(word(Fileareas,proarea))+1"D"RED""FSH""word(Fileareas,proarea)
  2710. totareas=totareas-1
  2711. end
  2712. else
  2713. do
  2714. send ""length(word(Fileareas,proarea))+1"D"GRN""word(Fileareas,proarea)
  2715. systeminfo '7'
  2716. listpath=result
  2717. if ~exists(listpath'files.bbs') then
  2718. do
  2719. send " "
  2720. leave
  2721. end
  2722. systeminfo 'z'
  2723. thisname=result
  2724. Call Writeln(Out,'')
  2725. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2726. Call Writeln(Out,' Area: ['word(fileareas,proarea)'] - 'thisname)
  2727. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2728. Call Writeln(Out,'[Filename            ] [ KB ][ Date  ][Dls][Description                      ]')
  2729. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2730. Call Open(in,listpath'files.bbs','R')
  2731. totifiles=0
  2732. totikilo=0
  2733. do until eof(in)
  2734. filelines=readln(in)
  2735. if filelines="" then leave
  2736. if left(Filelines,1)~="\" then
  2737. do
  2738. sizz=substr(filelines,25,7,)/1000
  2739. comper=pos('.',sizz)
  2740. if comper=0 then comper=length(sizz)+1
  2741. mon=substr(substr(filelines,33,6,),3,2,)
  2742. if mon="01" then mont="Jan"
  2743. if mon="02" then mont="Feb"
  2744. if mon="03" then mont="Mar"
  2745. if mon="04" then mont="Apr"
  2746. if mon="05" then mont="May"
  2747. if mon="06" then mont="Jun"
  2748. if mon="07" then mont="Jul"
  2749. if mon="08" then mont="Aug"
  2750. if mon="09" then mont="Sep"
  2751. if mon="10" then mont="Oct"
  2752. if mon="11" then mont="Nov"
  2753. if mon="12" then mont="Dec"
  2754. if madood=1 then wrline=left(filelines,22)" "pnk""right(left(sizz,comper-1)"k",5)" "grn""right(substr(filelines,33,6,),2)'-'left(mont,3)'-'left(substr(filelines,33,6,),2)" "yel""substr(filelines,40,length(filelines)-39,)
  2755. else wrline=left(filelines,22)" "right(left(sizz,comper-1)"k",5)" "right(substr(filelines,33,6,),2)'-'left(mont,3)'-'left(substr(filelines,33,6,),2)" "substr(filelines,40,length(filelines)-39,)
  2756. if datatype(compress(left(sizz,comper-1)))="NUM" then totikilo=totikilo+compress(left(sizz,comper-1))
  2757. totifiles=totifiles+1
  2758. end
  2759. else wrline=right(filelines,length(Filelines)-1)
  2760. maygetchar
  2761. if upper(Result)~="NOCHAR"&upper(Result)~="RESULT" then
  2762. do
  2763. totfiles=totifiles
  2764. totkilo=totikilo
  2765. signal comacarma
  2766. end
  2767. Call Writeln(out,wrline)
  2768. end
  2769. Call Writeln(Out,'')
  2770. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2771. Call Writeln(Out,' Total Files: ['totifiles'] - Total Size: ['totikilo' KB] ['totikilo/1000' MB]')
  2772. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2773. Call Writeln(Out,'')
  2774. totfiles=totfiles+totifiles
  2775. totkilo=totkilo+totikilo
  2776. Call Close(in)
  2777. end
  2778. send ' '
  2779. end
  2780. comacarma:
  2781. send WHT""BLD"Finished Compiling File List(s)."CLR
  2782. newline
  2783. print ''
  2784. print '+----------------------------------------------------------------------------+'
  2785. print ' Overall Files: ['totfiles']'
  2786. print ' FileList Contains ['totareas'] Area(s)'
  2787. print ' Overall Size: ['totkilo' KB] ['totkilo/1000' MB]'
  2788. print '+----------------------------------------------------------------------------+'
  2789. Call Writeln(Out,'')
  2790. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2791. Call Writeln(Out,' Overall Files: ['totfiles']')
  2792. Call Writeln(out,' FileList Contains ['totareas'] Area(s)')
  2793. Call Writeln(out,' Overall Size: ['totkilo' KB] ['totkilo/1000' MB]')
  2794. Call Writeln(Out,'+----------------------------------------------------------------------------+')
  2795. Call Writeln(Out,'')
  2796. Call Close(out)
  2797. newline
  2798. newline
  2799. print GRN"Archiving FileList With LHA..."CLR
  2800. address command "LHA a "tempath"FList_FileList.LHA "tempath"FList_FileList.Temp"
  2801. newline
  2802. prompt 1 'NORMAL "'YEL'Ready To Recieve'WHT'? 'RED'['BLD''WHT'T'CLR''RED']'YEL'ransfer'WHT', 'RED'['BLD''WHT'A'CLR''RED']'YEL'bort 'WHT'or 'RED'['BLD''WHT'C'CLR''RED']'YEL'opy To Dir/Device 'WHT'-:> 'BLD''CYN'"'
  2803. if upper(Result)="T" then protocolsend tempath"FList_FileList.LHA"
  2804. if upper(Result)="C"&useraccess>sysoptaxx then
  2805. do
  2806. newline
  2807. query YEL"Enter FULL Path To Copy FileList To: "CYN"\\RAM:"
  2808. copyfl=result
  2809. if exists(copyfl) then address command "Copy "tempath"FList_FileList.Temp "copyfl" >NIL:"
  2810. else
  2811. do
  2812. newline
  2813. print RED"That Path Doesn't Exist!"
  2814. end
  2815. end
  2816. address command "Delete "tempath"FList_FileList.LHA >NIL:"
  2817. address command "Delete "tempath"FList_FileList.Temp >NIL:"
  2818. newline
  2819. continue
  2820. farea=oldisharea
  2821. call redraw
  2822. call scroll
  2823. return
  2824. dltime:
  2825. parse arg fsize
  2826. if datatype(fsize)="NUM" then fsizeconv=fsize/1000
  2827. else
  2828. do
  2829. newline
  2830. newline
  2831. print RED"Unable To Determine File Size!"
  2832. newline
  2833. fsize=0
  2834. end
  2835. poddy=pos('.',fsize/1000)
  2836. fsizeconv=fsize
  2837. lpart=00
  2838. if poddy>0 then
  2839. do
  2840. fsizeconv=left(fsize/1000,poddy-1)
  2841. end
  2842. ttd=(fsize/(bpsrate/8))/60
  2843. seconds='00'
  2844. lpart=ttd
  2845. pod=pos('.',ttd)
  2846. if pod>0 then
  2847. do
  2848. rpart='0.'right(ttd,length(ttd)-pod)
  2849. lpart=left(ttd,pod-1)
  2850. if rpart<0.0166666 then seconds='01'
  2851. else seconds=left((rpart/0.0166666),2)
  2852. if right(Seconds,1)="." then seconds='0'left(seconds,1)
  2853. if seconds>60 then
  2854. do
  2855. lpart=lpart+1
  2856. seconds=seconds-60
  2857. end
  2858. end
  2859. if length(lpart)=1 then lpart='0'lpart
  2860. return(lpart" "seconds)
  2861. morepro:
  2862. if buggeroff="BUGGEROFF" then buggeroff=0
  2863. if buggeroff=1 then return(4)
  2864. send CYN''BLD'More'GRN'? 'YEL'Y'BLU'/'YEL'N'BLU'/'YEL'C'
  2865. getchar
  2866. ming=upper(Result)
  2867. if ming="N" then return(0)
  2868. if ming="Y" then return(1)
  2869. if ming="C" then
  2870. do
  2871. buggeroff=1
  2872. return(2)
  2873. end
  2874. return(3)
  2875. downer:
  2876. if mark.raw.goarea="Y" then send CLR""RED""BLD
  2877. else send CLR""WHT
  2878. send ''row'H'left(currfname.raw,93)
  2879. if row>(scrln+1) then return(1)
  2880. oldrow=row
  2881. row=row+1
  2882. raw=(start+row)-3
  2883. if left(Currfname.raw,1)="\" then
  2884. do
  2885. do until left(currfname.raw,1)~="\"
  2886. raw=(start+row)-3
  2887. row=row+1
  2888. if row<3 then leave
  2889. end
  2890. row=row-1
  2891. if row>scrln+1 then return(1)
  2892. end
  2893. return(0)
  2894. uppa:
  2895. if row<4 then
  2896. do
  2897. if mark.raw.goarea="Y" then send CLR""RED""BLD
  2898. else send CLR''WHT
  2899. send ''row'H'left(currfname.raw,93)
  2900. shutupbeavis=1
  2901. row=scrln+2
  2902. raw=(start+row)-3
  2903. if left(Currfname.raw,1)="\" then
  2904. do
  2905. do until left(currfname.raw,1)~="\"
  2906. raw=(start+row)-3
  2907. row=row-1
  2908. if row<3 then leave
  2909. end
  2910. row=row+1
  2911. end
  2912. row=row+1
  2913. end
  2914. if mark.raw.goarea="Y" then send CLR""RED""BLD
  2915. else Send CLR""WHT
  2916. if shutupbeavis=0 then send ''row'H'left(currfname.raw,93)
  2917. oldrow=row
  2918. row=row-1
  2919. raw=(start+row)-3
  2920. if left(currfname.raw,1)="\" then
  2921. do
  2922. do until left(currfname.raw,1)~="\"
  2923. raw=(start+row)-3
  2924. row=row-1
  2925. if row<2 then leave
  2926. end
  2927. if row<2 then
  2928. do
  2929. row=scrln+2
  2930. raw=(start+row)-3
  2931. if left(Currfname.raw,1)="\" then
  2932. do
  2933. do until left(currfname.raw,1)~="\"
  2934. raw=(start+row)-3
  2935. row=row-1
  2936. if row<2 then leave
  2937. end
  2938. row=row+1
  2939. end
  2940. end
  2941. else row=row+1
  2942. end
  2943. return